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A los usuarios del Spectrum: 


En todos los programas de este tomo poner LET. 


LA INSTRUCCION PRINT 
AMPLIADA 


LOS POSIBLES FORMATOS DE SALIDA 
CON LA PRINT NORMAL 


UANDO nosotros queremos que el programa nos escriba 
resultados por pantalla o impresora, normalmente nos in- 
teresará que esto lo haga con una disposición determina- 
da; es decir, que nos los escriba en una determinada po- 
sición de la pantalla, que nos separe los datos mediante 
una serie de espacios determinados, que nos escriba úni- 
camente una serie de caracteres de los que forman un 
dato alfanumérico o que los números que hay guardados 
=== en determinadas variables los escriba únicamente con un 
número determinado de decimales o con notación científica. 


DATOS-INFORME 


N. ORDEN % TASA 


1 55.22 9-18 
2 37.499 — 3.49 
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Fig. 1. 


La instrucción PRINT, tal y como la conocemos, nos permite ya reali- 
zar algunos de los problemas planteados anteriormente. 
Así, ya sabemos que si queremos escribir una serie de datos separados 
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por un blanco en el caso de que sean numéricos, o sin separación, si son 
alfanuméricos, basta con que los pongamos en el PRINT separados por un 
punto y coma. Si los separamos por una coma, nos los escribirá con una 
separación cuyo número de blancos dependerá de cada equipo con el que 
se trabaje. 

Existen, además, dos funciones y una instrucción que combinadas con 
la PRINT nos dan la oportunidad de obtener nuevos formatos de salida en 
pantalla: 


— FUNCION SPACES (o SPC en otros equipos) 


Cuando la ponemos dentro de una instrucción PRINT provoca la im- 
presión de N espacios en blanco. Por ejemplo: 


PRINT A$;SPACE$(10);B$ 


nos dejaría 10 espacios en blanco entre la palabra que haya en Af y la que 
haya en Bf. 


— FUNCION TAB 


Cuando la colocamos dentro de una instrucción PRINT, se salta a la co- 
lumna cuyo número se ha especificado como argumento de esta función. 
Así, si ponemos: 


PRINT TAB(15); N$ ;TAB(15); 


Nf$ se escribiría en la columna 15 de la línea actual si es posible. Si esta 
ya ha pasado, se pone en la columna 15 de la siguiente. El segundo TAB(15) 
provoca un salto a la posición 15 de la siguiente línea, pues en la actual, 
la posición 15 ya fue ocupada por Nf$. 


— INSTRUCCION LOCATE 


Nos permite situarnos en un lugar concreto de la pantalla para poste- 
riormente, en la siguiente instrucción PRINT, escribir a partir de esa po- 
sición donde se ha situado el cursor. Conviene recordar las variantes que 
presenta esta instrucción en los distintos equipos y que ya fueron expues- 
tas en el anterior número. 

La siguiente figura nos muestra un resumen de las distintas posibilida- 
des de formatos de salida utilizando la instrucción PRINT. 
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Separa los n.*s de 
PRINT A;B > A y B por un espacio 
PRINT A$;B$ S = red valores 


Separa los valores con 
un n.? de espacios 


ERIN AT en » Se sitúa en unas coordenadas 
SPECTRUM) de la pantalla 
SPACES(N)(SPC(N)) |> pri pi espacios 


Se sitúa en la próxima 
TAB(N) » columna N a partir de donde 
está el cursor 


PRINT A$,B 


V 


Fig. 2. 


TENEMOS MAS POSIBILIDADES CON LA 
INSTRUCCION PRINT USING 


Con lo que hemos visto hasta ahora, hay algunos posibles formatos de 
salida que nos gustaría obtener, y que no sabemos cómo hacerlo, sobre 
todo en lo que respecta a la escritura de números. Cuando en una instruc- 
ción PRINT, mandamos escribir el número que hay guardado en una va- 
riable de su mismo tipo, nos lo escribe siempre con las siguientes condicio- 

es: - 
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a) Los números negativos llevan siempre delante el signo. 
b) En los positivos el espacio del signo queda en blanco. 
c) Detrás de cada número aparece siempre un espacio en blanco. 


Existe, sin embargo, una modalidad de la instrucción PRINT que per- 
mite controlar con precisión cómo se van a imprimir los números en cuan- 
to a tratamiento de ceros, puntos y comas decimales. Se trata de la ins- 
trucción PRINT USING, cuyo formato es el siguiente: 

PRINT USING dato alfanumérico; variables o datos que se quieren es- 
cribir. 

Se diferencia de la instrucción PRINT normal, en que además de aña- 
dirle la palabra USING, antes de poner los datos que se quieren escribir, 
se debe colocar un dato alfanumérico (bien como una constante entre co- 
millas o mediante el nombre de la variable donde se encuentra guardado 
dicho dato). Este dato estará formado por una serie de caracteres especia- 
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les que van a tener un efecto en la escritura de lo que venga a continua- 
ción y cuyo significado se explica seguidamente: 


a) Cuando los datos que vamos a escribir en el PRINT son alfanuméricos: 


— | Este carácter indica que solo se imprima la primera letra del dato 
alfanumérico que venga a continuación. 

— M Se imprimen dos caracteres del dato más uno por cada espacio 
en blanco que se ponga entre las barras. 

— €: Se imprime el dato alfanumérico íntegramente. 


Supongamos, pues, que tenemos en las variables N$ y M$ el caso de la 
figura y se ejecutan las siguientes instrucciones: 


N$ M$ 


q LIM .hid . Md 


Programa 1. 


Al ejecutarse el programa, el primer PRINT USING escribirá las inicia- 
les de ambas palabras, el segundo escribirá las seis primeras letras de és- 
tas, ya que hemos colocado cuatro espacios en blanco entre las barras; y 
el tercero nos sacará por pantalla las palabras íntegramente. Es interesan- 
te notar que en los dos últimos se ha colocado un espacio en blanco al fi- 
nal de los caracteres alfanuméricos que especifican el formato. Esto se ha 
hecho para que al escribir las palabras que vengan a continuación, se haga 
dejando un espacio en blanco entre ellas. Si se quisieran dejar más espa- 
cios en blanco de separación entre las palabras, bastaría con dejar más es- 
pacios en blanco al final. 


b) Cuando queremos escribir datos numéricos 


— Se pone un carácter de éstos por cada cifra que queramos que 
nos escriba de los números que vengan a continuación. Si el número a vi- 
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sualizar tiene menos dígitos que cifras especificadas, se alineará a la dere- 
cha (precedido de espacios en blanco). 

También podemos colocar el punto decimal donde queramos que nos 
lo escriba. 

Veamos algunos ejemplos de estas posibilidades: 

Vamos a suponer para todos ellos que tenemos, en el momento de ser 
ejecutadas las instrucciones, en las variables los valores especificados en 
la figura: 


A B Cc D E 
Fig. 4. 


PRINT USING “HH. A% “A;¡B 
nos escribiría: 
0.78 10.20 


PRINT USING “HHH.A% “¡C;D;¡E 
nos escribiría: 


345.32 56.60 45.78 


En el último ejemplo se han colocado dos espacios al final del dato 
alfanumérico que nos describe el formato, para separar los valores por este 
número de espacios. Además, en los números que únicamente tienen dos 
cifras enteras nos deja un blanco en el lugar que correspondería a la cifra 
de las centenas que no llevan. Si quisiéramos dejar una serie de espacios 
en blanco delante del número, bastaría con que los pusiésemos delante de 
los caracteres P: del formato. En aquellos datos numéricos que tienen más 
de dos cifras decimales se redondean éstas. 


— Signos + —: 


Un signo más delante o detrás del dato alfanumérico de formato pro- 
voca que el signo del número que se escriba se visualice delante o detrás 
de dicho número. Un signo - al final provoca que se visualice el signo úni- 
camente cuando éste es negativo y se haga al final de él. 


» 
anna 


Cuatro caracteres de este tipo al final del dato de formato indican que 
los números deben escribirse en notación científica; formato exponencial. 
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Por ejemplo: 
Si ponemos la instrucción: 


PRINT USING “HH.HH""“D 
nos escribiría: 


5.66E+1 (suponiendo que en D tenemos guardado el mismo dato del 
ejemplo anterior). 
— Signo 
Una raya debajo dentro del valor alfanumérico de formato indica que 


el siguiente carácter que viene a continuación de ésta es un carácter que 
debe visualizarse literalmente tal y como está. Si, por ejemplo, ponemos: 


PRINT USING“ _IAHAHI5D 
nos escribiría: 
156.60! 


Como aplicación de este último caso visto, ofrecemos un programa que 
nos escribiría los números decimales con coma, tal y como se hace nor- 
malmente en España en vez del punto decimal. 


)PRINT USING "HHHHH" UN Y 
34 A mn BB ON INTIND A 'AUUUUDO 


50 REM El 


be números hasta con 5 cifras decimal 
El programa escribe numeros nasta con 3 citTras aecimales= 


Programa 2. 


Existen otros caracteres especiales de formato que permiten añadir as- 
teriscos u otros signos. No vamos a estudiarlos aquí por considerarlos de 
un uso muy restringido. De todas formas, la técnica es la misma y espera- 
mos que con las ideas aquí ofrecidas, si algún lector desea usar algunos de 
ellos, lo pueda hacer consultando el manual del equipo correspondiente. 
De igual forma, se aconseja consultar el manual si en alguno de los carac- 
teres aquí explicados algún equipo presentase alguna variante, aunque és- 
tos son estándar para la gran mayoría de los ordenadores. 

El siguiente cuadro es un resumen de los caracteres especiales de for- 
mato estudiados: 
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CARACTER FUNCION 
Escribe la inicial de 
los datos alfanuméricos 
Imprime dos caracteres, más 

M uno por cada blanco entre medias, 
de los datos alfanuméricos 


Fig. 5. 


A continuación se ofrece un programa aplicación de los formatos de sa- 
lida estudiados en este capítulo: 


Dl 


A A 
| — Introduce número 


Programa 3. 


EJERCICIOS: 


1. ¿Qué diferencia hay entre la función SPACES (o SPC) y la función 
TAB? 

2. Supongamos que A=3.14159 y B=-6.8976598. ¿Cómo pondríamos 
una instrucción PRINT USING para que nos los escriba en una misma fila, 
a partir de la columna 3, con seis espacios en blanco de separación entre 
ellos, dos decimales y su signo correspondiente? 

3. Supongamos que en una variable N$ tenemos el nombre de pila de 
una persona que hemos obtenido dentro de un programa de una lista en la 
que tenemos los nombres de una serie de personas. Realizar un trozo de pro- 
grama para escribir este nombre con la condición de que en aquellos nom- 
bres que sean compuestos, únicamente escriba el primer nombre completo 
y la inicial del segundo. Un nombre compuesto vendrá determinado porque 
entre el primer nombre que lo componga y el segundo habrá un espacio en 
blanco. 


RESPUESTAS: 


2. PRINT USING“ +4.H% “A¡B 


Programa 4. 
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LAS SUBRUTINAS O 
SUBPROGRAMAS 


¿QUE ES UN SUBPROGRAMA? 


L propio nombre de subprograma nos da ya una primera 
idea intuitiva de lo que es. Se trata de un programa que 
se va a encontrar incluido dentro de otro programa ma- 
yor. 

Veamos, sin embargo, cuando nos surge la necesidad 
de utilizar subprogramas y cómo se utilizan éstos. A me- 
nudo, al hacer un programa, se nos puede plantear el si- 
guiente problema: hay una serie de instrucciones conse- 
=== cutivas que queremos realizar exactamente igual en dis- 
tintas partes del programa. 


19 r....o 50 ce... oo 1900 e.o..oo 
60 e..o..o 118 e..o..o 


X/ 


Grupos de instrucciones 
iguales 


Fig. 1. 
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Con las instrucciones conocidas hasta ahora, no tenemos otra solución 
que escribir el grupo de instrucciones iguales en todos los momentos del 
programa que se vayan a realizar, ya que al no repetirse una detrás de otra, 
sino en diferentes momentos, no existe ninguna manera posible de agru- 
parlas dentro de una instrucción FOR. 

Tampoco sería factible la solución de colocar estas instrucciones en un 
lugar determinado del programa y saltar a ellas con un GOTO cada vez 
que queramos que el programa las ejecute, ya que después que se termi- 
nen de ejecutar querríamos que el programa volviese a un lugar distinto 
cada vez, según desde el sitio en que se saltara a ejecutarlas. 


1D e ....oo.o». TD GOTO 208 
28 GOTO 280 100 =-=.“=.-*.* 
58 e ...o.o..oo 110 c.o.o..o.o.oo 
seras 


—— 


Grupo de 
instrucciones 
que se 
repite 


El hipotético GOTO de 230 tendría que saltar unas veces a un sitio y otras veces a otro 


Fig. 2. 


Este es el caso en el cual vamos a necesitar utilizar los subprogramas 
o subrutinas. Este conjunto de instrucciones que queremos repetir en va- 
rios sitios distintos del programa es lo que se llama un SUBPROGRAMA y 
a continuación vamos a ver cómo se utiliza en un programa BASIC. 


LA INSTRUCCION GOSUB 


Cuando en un programa se nos plantea el caso de utilizar uno o más 
subprogramas, lo primero que se debe hacer es escribir estos al final del 
programa a partir de un número al que no puedan llegar nunca las ins- 
trucciones de nuestro programa. El subprograma también podría escribir- 
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se en cualquier parte del programa, pero esto exigiría un mayor cuidado 
y control de lo que haría el programa al ser ejecutado, y al mismo tiempo 
daría lugar a un programa mucho más confuso a la hora de tratar de ser 
entendido por alguien que no lo haya hecho. Por esta razón, se aconseja 
que los subprogramas en BASIC se escriban siempre al final del programa 
y en todos los ejemplos que se presenten en este libro así se hará. 

Al final del subprograma se debe poner la instrucción RETURN, que in- 
dica precisamente que se ha acabado esa subrutina. 

Una vez que hemos escrito la subrutina, cada vez que en el programa 
queramos, en un lugar determinado, ejecutar las instrucciones del subpro- 
grama tendremos que poner la instrucción: 


GOSUB número de línea 


El número de línea será aquella en la que comience la subrutina y cuan- 
do el programa llegue a una instrucción de este tipo, ejecutará las instruc- 
ciones de la subrutina a partir del número de línea especificada hasta que 
encuentre la instrucción RETURN, que indica que se ha acabado la subru- 
tina; VOLVIENDO entonces a EJECUTAR LA INSTRUCCION SIGUIENTE 
a la GOSUB desde la que saltó al subprograma. 


10 70 
20... 80 END 
30 GOSUB 1000 1000 
40... 1010 
50... 1020 
60 GOSUB 1000 1030 
1040 
1050 RETURN 
Fig. 3. 


La figura anterior es solamente un esqueleto de programa para ilustrar 
la mecánica del GOSUB-RETURN. 

Tenemos un programa principal que comprende desde la línea 10 a la 
80 y una subrutina en las instrucciones 1000-1050. 

El programa ejecutaría las instrucciones en el siguiente orden: 10-20- 
30-1000-1010-1020-1030-1040-1050-40-50-60-1000-1010-1020-1030-1040-1050- 
70-80. 

En las instrucciones 30 y 60 encuentra un GOSUB 1000, por lo que sal- 
ta a ejecutar la subrutina que comienza en 1000 y cuando en 1050 encuen- 
tra la instrucción RETURN, vuelve a la siguiente instrucción de la GOSUB 
(40 y 70, respectivamente). 

A continuación se ofrece un programa en el que se puede observar el 
empleo de subrutinas: 
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QUTERE RED! 


JARA AE CBE FUEN BDINT 4D 2 
CITO IF PC0I=1 THEN PRINT PLAZA “34. 


Programa l. 


En los programas en los que se emplean subrutinas, hay que tener en 
cuenta un pequeño detalle. Cuando nosotros escribimos un programa nor- 
mal, no es necesario que pongamos al final de éste la instrucción que in- 
dica que el programa se ha acabado (END), ya que si el ordenador no en- 
cuentra más instrucciones que ejecutar, acaba el programa de todas ma- 
neras. Sólo tenemos que poner la instrucción END, en el caso de que el 
programa se acabase a la mitad cuando se cumpla una determinada con- 
dición. En un programa en el que usemos subrutinas, sí tenemos que po- 
ner como última instrucción del programa la instrucción END, ya que si 
no el programa continuaría ejecutando la subrutina, que está puesta a con- 
tinuación, realizando cosas erróneas. 
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Los subprogramas permiten la modularización de los programas. Po- 
demos dividir un programa largo, en uno principal y una serie de subru- 
tinas para realizar diversas operaciones. Alguna de éstas puede ser luego 
copiada a otros programas que realicemos. Cuando hagamos un programa 
grande es aconsejable realizarlo siempre a través de subrutinas, es decir, 
hacer una subrutina por cada operación que tenga que realizar el progra- 
ma, aunque se haga una única vez en éste. Es una manera de conseguir 
que el programa sea lo más inteligible posible y de acercarnos en BASIC 
a la idea de programación ESTRUCTURADA (programar por módulos que 
luego se ensamblan). En los programas de ejemplo que se ponen más ade- 
lante veremos algún caso de esto. 


LOS ARGUMENTOS DE LAS SUBRUTINAS 


Vamos a ver en este apartado una idea fundamental en el empleo de 
subrutinas que en otros lenguajes de programación viene implícita en la 
propia definición de subrutina y que en BASIC tenemos que realizarla no- 
sotros con una serie de instrucciones. 

Veamos la idea con un ejemplo muy sencillo: 

Supongamos que queremos hacer un programa para calcular el área 
de unas figuras con la misma forma que la del dibujo y comparar sus sec- 
ciones con un par de valores: 


o pm 


L 


Fig. 4. 


A partir de los datos L y G el programa deberá obtener la superficie to- 
tal de la figura y las superficies de las secciones A y B. También queremos 
que nos diga por pantalla si los valores de estas secciones son mayores que 
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el dato que tenemos guardado en la variable MAX y si son menores que el 
que hay guardado en la variable MIN. 


L L-2G 
Fig. 5. 


El programa consistirá, pues, en hallar el área de dos rectángulos (A y 
B) y compararla con dos valores. Luego el área total de la figura será el 
doble de la suma de A y B. 

Supongamos que pensamos definir una subrutina para calcular el área 
de un rectángulo y compararla con los dos valores mencionados. Luego el 
programa llamará dos veces a la subrutina para calcular el área de las dos 
secciones y compararla con los valores máximo y mínimo. 

El problema nos surge al escribir la subrutina. Para calcular el área, 
por ejemplo, tendremos que multiplicar las variables donde se encuentren 
guardados los valores de los lados. 

¿Qué variables multiplicamos en la subrutina? L y G, que son las que 
tenemos que multiplicar cuando saltemos a la subrutina para calcular el 
área del primer rectángulo o (L-2*G)* G que sería la multiplicación que 
tendríamos que hacer para calcular el área del segundo rectángulo. 

Aún nos surge otro problema. El resultado del área queremos guardar- 
lo la primera vez que saltemos a la subrutina en la variable A y la segunda 
vez en la variable B y como la subrutina se escribe una sola vez evidente- 
mente, a ver qué variable ponemos. 

La forma de solucionar este problema es la siguiente: en la subrutina 
ponemos como variables donde están guardados los lados del rectángulo, 
dos variables que no se utilicen en el programa y que van a ser propias úni- 
camente de la subrutina; por ejemplo, L1 y L2. Lo mismo hacemos para 
guardar el resultado del área; por ejemplo, AR. 

Una vez hecho esto, al llamar a la subrutina para calcular el área de la 
sección A deberemos poner: 


Programa 2. 
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Haciendo esto, conseguimos que antes de saltar a la subrutina las va- 
riables L1 y L2 tomen los valores de los lados del rectángulo cuya área que- 
remos obtener y cuando termine la subrutina (que tiene el resultado en 
AR) se pasa este resultado a la variable A, que es donde queremos guar- 
darlo. Para calcular el área de la sección B, se haría de manera similar: 


Programa 3. 


Hay que notar también que en este programa tendríamos que hacer lo 
mismo con otra variable. Si nosotros queremos que cuando se cumplan 
las condiciones de que las secciones sean mayores o menores que los lí- 
mites, nos escriba un mensaje del estilo: 


LA SECCION A ES MAYOR QUE EL MAXIMO PERMITIDO 


Como este mensaje lo escribiremos en la subrutina, tampoco podría- 
mos poner ni SECCION A ni SECCION B, ya que unas veces lo haremos 
para la A y otras veces para la B. Esto se soluciona también poniendo una 
variable en la que guardamos la letra según saltemos a la subrutina para 
calcular un área u otra. 

Veamos a continuación este programa completo: 


Programa 4. 


Estas variables que utilizamos de esta forma son lo que se suelen lla- 
mar argumentos del subprograma. 
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Otro programa que también utiliza subprogramas con la misma idea es 
el que transforma un número romano en un número decimal, que se ofre- 
ce a continuación. 

La subrutina se encarga de transformar una letrá en su código numé- 
rico correspondiente. Se utiliza dos veces, ya que cada vez que analizamos 
una letra hay que obtener también el valor de la siguiente para saber si 
hay que sumar o restar, según sea mayor o menor. Las variables A$ y A 
son los argumentos de la subrutina. 


Programa 5. 


LA INSTRUCCION ON..GOSUB 


Cuando hablamos de la decisión múltiple en el número anterior, pre- 
sentábamos la instrucción ON .. GOTO. 

La instrucción ON .. GOSUB que vemos seguidamente amplía las posi- 
bilidades de la ON .. GOTO, ya que nos evita el tener que poner, al final 
de cada instrucción o grupo de instrucciones a las que saltamos mediante 
el ON .. GOTO, una instrucción GOTO para ir a un punto común del progra- 
a. 


8 


N 


O 


10 ON N GOTO 20, 30, 40 10 ON N GOSUB 20, 30, 40 
20... GOTO 50 15 


30... GOTO 50 20... 
40... GOTO 50 30... 
50... 40... 


En la ON.. GOTO necesitamos indicar el salto a donde 
queremos que continúe el programa 


Fig. 6. 
La instrucción ON .. GOSUB tiene el siguiente formato: 
ON variable GOSUB L1,L2,L3.,.... 


El funcionamiento es exactamente el mismo que el de la instrucción 
ON .. GOTO, con la diferencia de que las líneas L1,L2,L3,..a las que salta 
según los valores de la variable son líneas de comienzo de subrutinas. 
Cuando desde esta instrucción se salta a una subrutina, se ejecutan las ins- 
trucciones en el orden en que estén hasta que llegue a la instrucción RE- 
TURN y VOLVIENDO ENTONCES A EJECUTAR LA INSTRUCCION QUE 
HAYA A CONTINUACION DEL ON .. GOSUB. 


10 ON N GOSUB 1000, 2000, 3000 
20 


| RETURN DE 1000, 2000 y 3000 


Fig. 7. 


El siguiente programa es un ejemplo de utilización del ON .. GOSUB: 
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Programa 6. 


PROGRAMAS APLICACION DEL GOSUB 


NO REM CALCULO DE LAS COMBINACII 


JES DE N ELEM 


IDO ES” ¡FACN/CFACMFACIM > 


yO tactorial desborde la capacit 


27 AÑETOA" *"SEPTIEMBR E" "OCTUBRE" , "NOUI EMB] 
¡010 DATA CADOUSTO”" y COSEFTIEMPDRE y VULIVUBRE" y 


Programa 8. 


En este último programa es importante destacar la utilización de las sub- 
rutinas para realizar dos módulos del programa: almacenamiento en las 
variables de los datos incluidos en el DATA y validación de la fecha intro- 
ducida. Esto estaría dentro de la idea de utilizar las subrutinas para reali- 
zar con cada una un módulo de un programa y luego saltar a estos módu- 
los cada vez que queramos realizar las operaciones que les correspondan. 
Es una forma de acercarnos con el BASIC a las ideas de la programación 
estructurada, como ya dijimos anteriormente. 


EJERCICIOS: 


1. ¿Cómo se sabe dónde empieza y dónde termina un subprograma BA- 
SIC? 

2. Realizar el programa para escribir con letras el valor del número que 
hay guardado en una variable (que aparecía en el número anterior) utili- 
zando instrucciones ON .. GOSUB 


3. Intenta averiguar, antes de escribir RUN, lo que hará el siguiente pro- 
grama si se introducen por pantalla los números 5 y 2: 


cad] 
LO INPUT *Introduce un número” 31 


e on. 
20 INPUT "Introduce otro número” 30 


Programa 9. 
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LA PROGRAMACION 
ESTRUCTURADA 


INTRODUCCIÓN 


N 1968 Dijkstra publicó un artículo titulado: «Go to state- 
ment considered harmful», que se puede traducir de una 
manera más o menos libre por: «La instrucción GOTO es 
peligrosa». En él afirma que la calidad de un programa- 
dor es inversamente proporcional al número de instruc- 
ciones GOTO que usa en sus programas y que dicha ins- 
trucción debería suprimirse de los lenguajes de programa- 
ción de alto nivel. 

La controversia planteada por la publicación de este 
artículo hizo que se prestase una mayor atención a la organización interna 
de los programas, con la idea de hacerlos más simples y libres de errores. 

La idea fundamental se basa en conseguir realizar un programa a base 
de ensamblar una serie de estructuras independientes. La instrucción 
GOTO, por tanto, rompe esta estructura, ya que provoca saltos de unos lu- 
gares a otros y hace que no se puedan realizar estructuras independientes 
una tras otra. 


10... 
20... 
30... GOTO 10 
50... GOTO 20 


60... GOTO 80 

70... 

80... GOTO 10 

El GOTO hace que no se pueda dividir 
el programa en módulos independientes 


; Fig. 1. 


A partir de esto, surge la idea de la programación ESTRUCTURADA. 
Los métodos de la programación estructurada lo que hacen es definir una 
serie de estructuras tipo a partir de las cuales y únicamente con ellas se 
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puede escribir cualquier programa a base de ir ensamblando una tras otra 
estructuras de este tipo (en el orden que queramos). 

En este capítulo vamos a ver cuáles son estas estructuras y cómo se po- 
drían realizar en BASIC. De todas formas, veremos que sólo se pueden rea- 
lizar en BASIC en algunos equipos que cuenten con algunas instrucciones 
especiales, ya que se trata de un lenguaje que no está orientado a la pro- 
gramación estructurada. Esto será fácil de notar por el lector, ya que es de 
suponer que se estará imaginando que es imposible hacer determinados 
programas en BASIC sin utilizar la instrucción GOTO. Veremos que sólo 
será posible en aquellos ordenadores que cuenten con la instrucción WHI- 
LE-WEND. 


LAS ESTRUCTURAS TIPO DE LA PROGRAMACION 
ESTRUCTURADA 


Las estructuras tipo a partir de las cuales se debe realizar todo progra- 
ma estructurado son las siguientes: 


a) Estructura de bloque 


Fig. 2. 


Consiste en un conjunto de instrucciones o estructuras de las que se es- 
tudien a continuación ordenadas que siempre se ejecutan en el mismo or- 
den y que en conjunto realizan una determinada operación que nos resul- 
ta interesante para lo que quiere hacer nuestro programa. 
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b) Estructura IF-THEN-ELSE 


Fig. 3. 


Consiste en realizar una instrucción o una estructura completa en el 
caso de que se cumpla una determinada condición, y otra instrucción u 
otra estructura si no se cumple esta condición. 


c) Estructura DO-WHILE 


Fig. 4. 
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Consiste en repetir una serie de instrucciones o estructuras ordenadas, 
siempre en el mismo orden, mientras se cumpla una determinada condi- 
ción. 


d) Estructura caso (case) 


Fig. 5. 


Consiste en elegir la realización de grupo de instrucciones o estructu- 
ras ordenadas entre un conjunto de éstos, dependiendo del resultado de 
una condición múltiple. Una condición múltiple es, por ejemplo, la que 
nos pregunta por el valor que hay guardado en una variable; que puede te- 
ner múltiples resultados (como veíamos en el caso de las instrucciones ON 
.. GOTO y ON .. GOSUB). 


e) Estructura repetitiva 


REPETIR N VECES 


Fig. 6. 
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Consiste en repetir una serie de instrucciones o estructuras ordenadas 
un número determinado de veces (siempre en el mismo orden, por supues- 
to). 

Cualquier programa que queramos hacer se puede poner como un con- 
junto de estructuras de este tipo. Veamos algunos ejemplos: 

Supongamos que queremos hacer un programa (como uno que se po- 
nía en el número anterior) que genere un número al azar entre 1 y 100 y 
a continuación nos vaya pidiendo números hasta que lo adivinemos; di- 
ciéndonos cada vez que metemos un número, si éste es mayor o menor 
que el que tenemos que adivinar. Estas operaciones se harían con las es- 
tructuras de programación estructurada que se detallan a continuación: 
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El programa para pasar de una fecha representada numéricamente a 
una fecha literal que se ponía en el capítulo anterior, también puede rea- 
lizarse a base de una combinación de las estructuras vistas anteriormente: 


Fig. 8. 
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Veamos también cómo se pondría el programa para pasar un número 
romano a decimal: 


REPETIR N veces 
N=Longitud de n.? romano 


Fig. 9. 
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Como se habrá podido observar, la programación estructurada consis- 
te en una serie de técnicas que nos permiten determinar las cosas que tie- 
ne que hacer un programa para realizar una operación determinada que 
nosotros deseemos, a base de definir éstas mediante una serie de estruc- 
turas-tipo que se deberán realizar una tras otra. 

Nuestro objetivo es ahora saber cómo debemos pasar estas estructuras 
al lenguaje BASIC, que es el que estamos estudiando. 


== LAS ESTRUCTURAS EN BASIC 


El BASIC es un lenguaje que existía antes de que se definieran las téc- 
nicas de la programación estructurada y por eso el BASIC estándar no per- 
mite poder pasar todas las estructuras a instrucciones del lenguaje, por lo 
que con él no podríamos programar usando este método. Sin embargo, 
hay algunos equipos que han incorporado al BASIC instrucciones propias 
de otros lenguajes realizados para programar con las estructuras de pro- 
gramación estructurada (como el PASCAL) y si permiten poder pasar es- 
tas estructuras a BASIC. 

A continuación, vamos a ver la forma de poner en BASIC todas las dis- 
tintas estructuras, indicando aquellas instrucciones que no existen en to- 
dos los equipos, así como la forma más aproximada de ponerlas en BA- 
SIC, con las instrucciones de que se dispone. 


a) Estructura de bloque 


Esta estructura se pondrá en BASIC colocando un conjunto de instruc- 
ciones consecutivas. 


¡AAA 


29 ovo....... Estructura de 


A e 


MD ira 


Fig. 10. 


Si estas instrucciones se fueran a ejecutar en el mismo orden en varios 
sitios del programa deberíamos definir una subrutina. También podríamos 
definir una subrutina en el caso de que ello ayudase a entender mejor las 
partes de que consta el programa como se explicó en el capítulo anterior 
(como ocurría, por ejemplo, en el programa de las fechas). 


32 


b) Estructura IF-THEN-ELSE 


Esta estructura se representa indudablemente con la instrucción IF- 
THEN-ELSE. En el caso de que el ordenador en el que estamos trabajando 
no tuviese la posibilidad ELSE, la única manera de simular esta estructura 
sería repitiendo de nuevo otra instrucción IF a continuación con la con- 
dición contraria. 


La instrucción: 


MER E 


¡AR! SE pPRTI 
ATERO FAR ELSE FRA! 


Programa l. 


habría que sustituirla por: 


Programa 2. 


Cuando el conjunto de instrucciones que queramos realizar, tanto en 
el THEN como en el ELSE, sea demasiado grande y no nos quepa en la ins- 
trucción a continuación de la palabra THEN o ELSE, deberemos definir 
una subrutina con estas instrucciones y en la instrucción IF, a continua- 
ción de THEN o ELSE, poner el GOSUB a esa subrutina. 


c) Estructura DO-WHILE 


Esta es la estructura más utilizada, ya que nos permite repetir un con- 
junto de instrucciones un número de veces distinto cada vez que se ejecu- 
te el programa, dependiendo de una condición que nosotros le pongamos. 
La utilizaremos cuando el programa no conozca de antemano cuántas ve- 
ces se va a repetir. Este es el caso, por ejemplo, del programa para adivi- 
nar un número entre 1 y 100. El programa no sabe de antemano cuántas 
veces tendrá que repetir las operaciones de pedirte un número y compa- 
rarlo porque no sabe cuánto vas a tardar en adivinar el número. 


DS 


MIENTRAS 
no se adivine 
REPETIR 


bloque de 
instrucciones 
a repetir 


Fig. 11. 


Esta estructura en BASIC se realiza mediante la instrucción WHILE- 
WEND que tiene el siguiente formato: 


WHILE condición 
instrucciones que se quieren repetir 


Cada una de estas instrucciones llevarán su número correspondiente 
en el orden indicado. Cuando el programa llega a una instrucción WHI- 
LE, realiza lo siguiente: 


a) Mira si se cumple la condición que hay a continuación de la pala- 
bra WHILE 


b) Si la condición no se cumple, salta a ejecutar la instrucción que 
haya a continuación de WEND y continúa luego ya ejecutando las instruc- 
ciones que vengan a continuación. 


c) Si la condición se cumple, pasa a ejecutar las instrucciones que 
haya a continuación de WHILE en su orden correspondiente hasta llegar 
a WEND. Cuando llega a WEND, vuelve a la WHILE y comienza de nuevo 
el proceso relatado en a). 


Veamos un programa muy sencillo como ejemplo del funcionamiento 
de esta instrucción: 
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Programa 3. 


Este programa nos calcula la media de una lista de números que noso- 
tros le metamos. El número total de números no es fijo, es decir, cada vez 
que ejecutemos el programa querremos hallar la media de un número de 
valores distinto. Cuando hayamos terminado de meter los números intro- 
duciremos un —1 para indicarle al programa que ya no hay más números 
y que ya nos puede hallar la media. Utilizamos una instrucción WHILE 
para que nos pida un nuevo número y nos lo sume a la suma acumulada 
de los anteriores MIENTRAS N sea distinto de -1. 

En el estudio de esta instrucción WHILE hay que considerar: 


— Los bucles WHILE-WEND pueden ser anidados, al igual que los 
FOR-NEXT. En este caso se comportan también como éstos; es decir: un 
bucle puede contener enteramente a otro, pero no entremezclarse. Vea- 
mos este caso con el programa anterior, suponiendo que queremos que 
cada vez que nos pida un número, en el caso de que le metamos un nú- 
mero negativo nos escriba por pantalla que el número no es válido y nos 
pida números hasta que le metamos uno positivo: 


Programa 4. 
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— Existe la posibilidad, no recomendada, de abandonar el bucle po- 
niendo una instrucción GOTO dentro de las instrucciones que se repiten 
para que si se cumple una determinada condición se vaya fuera de éstas. 
No es aconsejable, ya que precisamente esta instruccion WHILE se define 
para evitar el tener que usar instrucciones GOTO. 

Veamos cómo este caso planteado se puede solucionar utilizando úni- 
camente instrucciones WHILE: 


10... 

20 WHILE condición 1 

30... 

40 IF condición 2 GOTO 70 


Fig. 12. 


Este programa se podría poner de la forma: 


15 IF condición 2 THEN (copia de la instrucción 30) 
20 WHILE (condición 1) AND (NOT condición 2) 
30... poner condición 3 verdadera 
40 WHILE (NOT condición 2) AND (condición 3) 
50... poner condición 3 falsa 
55 WEND 
57 IF condición 2 THEN (copia de la instrucción 30) 
60 WEND 
70... 
Posibilidad de sustituir un caso particular de GOTO dentro de un WHILE 


Fig. 13. 


Esta instrucción WHILE existe únicamente en las versiones BASIC del 
sistema operativo MS-DOS (IBM o compatibles) y del AMSTRAD. En el res- 
to de los ordenadores, no se puede poner la estructura DO-WHILE en BA- 
SIC, aunque si se ha realizado el esquema de lo que tiene que hacer el pro- 
grama mediante estructuras de programación estructurada; este tipo de es- 
tructura se puede «simular» mediante la instrucción GOTO de la siguiente 
manera: 


100 IF NOT condición THEN GOTO 210 


200 GOTO 100 
210 ... 


Fig. 14. 


También se podría hacer de esta otra forma en el caso de que quisié- 
ramos que repitiese siempre una vez por lo menos el conjunto de instruc- 
ciones, y luego comprobase si se deben repetir más veces: 
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AS 


200 IF condición THEN GOTO 100 
210... 


Fig. 15. 


Veamos cómo quedaría el programa anterior en el caso de que quisié- 
ramos ejecutarlo en un ordenador sin la instrucción WHILE, pero tratan- 
do de acercarnos lo más posible a la idea de la estructura DO-WHILE. 


Programa 5. 


d) Estructura Case 


Este tipo de estructura la pondremos en BASIC mediante la instruc- 
ción ON .. GOSUB, ya estudiada en el capítulo anterior. Las distintas sub- 
rutinas a las que se salta realizarán las operaciones que queramos hacer 
según el valor de la variable. 


e) Estructura repetitiva 


Esta estructura la solucionaremos en BASIC mediante una instrucción 
FOR-NEXT, ya de sobra conocida por los lectores. 

A continuación se ofrecen los programas planteados al comienzo del 
capítulo realizados mediante las instrucciones vistas: 


SA MM 
IO REM JUEGU 
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nen PR 


INT "101 ACERTASTI!| 


LO FIAT LO ALERTA: 


HEN PRINT *FECHA ER 


RONEA” 1E=1; 


REN 


VOM 


0"), JUNIO”, JULI! 


-FLIRN 


JN 


= 120 LOCATE 12,5:PRINT "EL RESULTADO ES "52 

== 140 END - 

—= 300 IF A$="M" THEN A=1000 
310 IF A$="D" THEN A=500 

= - 320 IF A$="C" THEN A=100 

= 330 IF A$="L" THEN A=50 

-= 340 IF A$="X" THEN A=10 

: 350 IF ="0Y" THEN A=5 

== 360 IF A$="I" THEN A=1 

- 365 IF A$="" THEN A=0 

370 RETURN 


Programa $. 


Observamos que el programa de pasar los números romanos a decima- 
les nos queda igual que cuando lo hicimos en el tema anterior sin saber 
aún la programación estructurada. 


UN 


CONCLUSIÓN 


La programación estructurada es un método para realizar programas 
de una manera más sencilla, sobre todo cuando se trata de programas lar- 
gos, en los que el hecho de dividirlos en las estructuras nos ayuda a ver 
mejor los pasos y las operaciones que tiene que hacer el programa. 

No es, evidentemente, el único método que hay para programar y cada 
usurio verá a la hora de hacer un programa si lo elige o lo hace mediante 
saltos con instrucciones GOTO. 

Debido a que el lenguaje BASIC no ha sido preparado para programar 
con técnicas estructuradas, hay veces que resulta más conveniente com- 
binar las instrucciones correspondientes a éstas con alguna instrucción 
GOTO. 

De todas formas, aunque el BASIC no está hecho para programar de ma- 
nera estructurada, aquí hemos visto cómo podemos acercarnos lo más po- 
sible a las ideas de estas técnicas. 

En los programas que aparezcan en este libro, aunque algunos se dise- 
ñen mediante las técnicas estructuradas, se harán sin utilizar la instruc- 
ción WHILE para lograr que puedan ser ejecutados en aquellos ordenado- 
res que no disponen de esta instrucción. 

Como final del capítulo ofrecemos un programa que simula una carre- 
ra de caballos en pantalla utilizando primero instrucciones GOTO y des- 
pués instrucciones WHILE-WEND. 
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73-REM-EN- CA SE SELECCIONA EL CA 
(AIM EN HA OE DELE LSo1I 


Programa 10. 


EJERCICIOS: 


1. Modifica el programa de la carrera de caballos para que corra un nú- 
mero cualquiera de caballos que nos pida previamente el programa. Utili- 
zar una lista (DIM) para guardar la columna por la que va cada caballo. 

2. Hacer un programa que calcule el número de días que hay entre dos 
fechas dadas. Realizarlo primero con instrucciones GOTO y luego con WHI- 
LE-WEND. 

3. Intenta realizar cualquier programa que tengas hecho con instruc- 
ciones GOTO con instrucciones WHILE-WEND únicamente. 
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RESPUESTAS: 


A Wii THEN 
¡KR CON=5S OR CON=10 OR CON=1Z THE! 


EN D=D+30 


ES COMPLETI 


¡420R_B=5 OR B 


ND B3 AND _E>2 AND F/4 = IN 


DOTECFZ3CAND BZ AND (7/43 INT(C/A4) THEN DED+1 


Programa ll. 
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pun 


RESOLUCION DE ALGUNOS 
PROBLEMAS TIPICOS EN BASIC - 


INTRODUCCION —— 


N este capítulo vamos a ver cómo se podrían resolver me- 
diante un programa BASIC dos problemas típicos que se 
nos pueden plantear en muchas ocasiones. El primero de 
ellos será el de ordenar una serie de números que tenga- 
mos guardados en una lista y el segundo el de encontrar 
el camino más corto entre dos ciudades incluidas dentro 
de una red de ciudades. 


COMO ORDENAR UN CONJUNTO DE 
DATOS 


Supongamos que tenemos una lista de N elementos: 


Fig. 1. 


y deseamos ordenarlos de mayor a menor. 


Se nos pueden plantear dos casos distintos: que haya suficiente espacio 
en memoria como para poder utilizar otra lista para ir metiendo los ele- 
mentos ordenados tal como vemos en la figura o que el número N de ele- 
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Fig. 2. 


mentos de la lista sea tan grande que no tengamos espacio en memoria 
para declarar otra lista distinta y tengamos que ordenar los elementos so- 
bre la misma lista. Los métodos que veamos para este segundo caso los po- 
demos aplicar de todas formas siempre, ya que aunque haya espacio sufi- 
ciente en memoria para declarar otra lista, hay muchas veces que nos inte- 
resa que el programa nos deje los valores ordenados en la MISMA lista o 
nos resulta incómodo tener que utilizar otra lista, pudiendo aplicar los pro- 
gramas que nos dejan los valores en la MISMA lista. 


a) Ordenamiento con dos listas 


La idea que hay que realizar es la expresada en la figura anterior: bus- 
car el mayor de los elementos y guardarlo en la primera posición de la se- 
gunda lista, luego buscar el mayor de los que queden y guardarlo en la 
segunda posición de la segunda lista, y así sucesivamente. 


El siguiente programa realiza este caso: 


DAIEA MA eee RARA AAARAE AAA AAA 


Programa l. 


Cuando encontramos el mayor de los números de la primera lista, co- 
locamos en su lugar un cero para luego buscar la siguiente vez el mayor 
de los números que resten. 


b) Ordenamiento sobre la misma lista 


Vamos a ver dos métodos para este caso: 


— El primer método consistiría en buscar el mayor de los elementos 
de la lista y colocarlo en la primera posición de ésta después de haber des- 
plazado un lugar hacia la derecha los elementos comprendidos entre el pri- 
mer lugar y aquel en el que sé encontraba el mayor. Luego tendríamos 
que repetir la misma operación para todos los elementos de la lista, ex- 
cepto el primero, y así seguiríamos sucesivamente hasta llegar al último, 
con lo que habremos conseguido ordenar todos los elementos. 


La siguiente figura ilustra este método: 


b 
h 


Fig. 3. 


El programa BASIC que realiza este método es el siguiente: 


A aa 
10 INFPOT “numero de elementos”; 


— 2040 IF ACIDDACMAXO THEN. Max=J A AA 


Programa 2. 


Hay que tener en cuenta que todos estos programas son partes de un 
programa en los que suponemos que la lista A que ordenamos ha podido 
obtener sus valores anteriormente en cualquier operación del programa. 
En los programas aquí expuestos se pone la obtención de estos valores me- 
diante INPUT a modo de ejemplo. 


— El segundo método que vamos a ver para ordenar los valores de una 
lista sobre ella misma es el conocido con el nombre de método de la bur- 
buja. Consiste en lo siguiente: 


» 
) 
) 


Fig. 4. 
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Si entre los elementos de la lista vamos comparando dos a dos (cada 
uno con el que tiene encima), y ponemos encima el mayor de los dos; des- 
pués de haber comparado todos, empezando por el último, habremos con- 
seguido que el mayor de todos haya quedado el primero. En la figura 4 se 
puede observar este proceso. 

Si ahora, que ya tenemos el mayor en el primer lugar de la lista, vol- 
vemos a hacer lo mismo, conseguiremos que el segundo más grande nos 
quede en el segundo lugar de la lista; como vemos en la figura: 


123 123 123 123 123 
49 49 49 49 82 
13 13 13 82 49 
7 Y 35. 822 E NE 
82 82 37 37 37 
9 9 y 9 9 
Fig. 5. 


Repitiendo esta operación N veces habremos conseguido que la terce- 
ra vez nos quede el tercero más grande en el tercer lugar de la lista, la cuar- 
ta vez el cuarto y así sucesivamente hasta que al repetirlo las N veces ha- 
brá quedado la lista ordenada. Se deja como ejercicio al lector, que a par- 
tir del ejemplo de la figura continúe realizando el proceso las cuatro veces 
restantes para comprobar el resultado. 

Este método recibe el nombre de método de la burbuja, porque cada 
vez que se repiten todas las comparaciones el número mayor «sube» hasta 
su lugar correspondiente como si lo hiciera en una burbuja que ascendie- 
ra desde el fondo de la lista. 

Con estas ideas vistas, el programa nos quedaría de la siguiente manera: 


LO FOR JeN TO 141 STEP -—1 
SU FruUn VIN 10 ¿44 S3QI1Er —4 


Programa 3. 
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Aunque en todos estos ejemplos hemos ordenado listas numéricas, de 
la misma manera podríamos ordenar palabras guardadas en una lista alfa- 
numérica. Las palabras nos quedarían ordenadas en orden alfabético de 
mayor a menor, es decir, la primera sería la que empezara por la letra que 
estuviera más al final en el abecedario. Recordar que cuando comparamos 
dos palabras, es mayor aquélla que se encontrara después si las ordenáse- 
mos por orden alfabético. 

A continuación se ofrece este último programa realizado mediante el 
método de la burbuja, para el caso de ordenar datos alfanuméricos. 


A REM 


A AA A A A A A A A A 
¡020 REM Esta subrutina debe estar en un programa en el que queramos 


Programa 4. 


Si los datos alfanuméricos estuvieran compuestos por caracteres dis- 
tintos de letras, serían mayores aquellos caracteres que tuvieran un códi- 
go ASCII mayor. 


EL PROBLEMA DEL CAMINO MAS CORTO - 


Otro problema típico que nos puede surgir en muchos tipos de progra- 


3 
Cc 
Camino más corto de A a D: A-B-C-D 


Fig. 6. 


Supongamos para ello que la red tiene N ciudades y que tenemos una 
tabla C como la de la figura en la que tenemos almacenadas las distancias 
entre las ciudades que tienen una carretera directa entre ellas: 


Fig. 7. 


Esta figura representaría la tabla correspondiente a la red de la figura 
anterior. En aquellas variables correspondientes a la distancia entre dos 
ciudades que no tienen camino directo entre ellas se guarda un valor que 
vamos a llamar MAX y que corresponderá con un valor muy alto. Esto se 
hace así porque el método que vamos a desarrollar y que luego explica- 
mos, así lo requiere. 

A continuación se ofrece el programa que résuelve este problema. Este 
programa pide por pantalla los nombres de las ciudades y a continuación 
las distancias entre aquellas ciudades de la red que estén unidas por una 
carretera directa (cuando no haya carretera directa entre las ciudades en- 
tre las que se pide la distancia bastará con pulsar RETURN o ENTER). 


49 


El programa a continuación halla los caminos más cortos entre las dis- 
tintas ciudades de la red aplicando el algoritmo de Floyd (que después se 
explicará someramente su idea) y después pide al usuario por pantalla una 
pareja de ciudades entre las que se quiera saber el.camino más corto, es- 
cribiendo éste y su distancia. 


10 REM 300 0 06 6 26 26 36 2 26 DE 26 DE DE 26 2 26 6 26 2020 26 0 0 2 2 26M 26 DO 26 DO 00 0 0 ER 
20 REM .. e 
30 REM .. PROGRAMA PARA HALLAR EL CAMINO MAS CORTO ENTRE DOS e. 
40 REM *.. CIUDADES INCLUIDAS DENTRO DE UNA RED DE CARRETERAS .. 
50 REM .. *. 
70 REM .. e. 
80 REM 10006 10 DE DA DE 26 26 26 26 26 26 26 6 26 0 26 26 200 0 20 M6 DE ME 2 JE 26 26 26 26 6 26 46 26 20 0 20 16 0 0 0 6 0 6 6 6 6 0 2 6 0 2 1 6 0 6 6 6 6 6 6 
90 CLS 


100 INPUT “INTRODUCE EL NUMERO DE CIUDADES QUE FORMAN LA RED" ¡N 

110 DIM C(N,N>:DIM D(N,N):DIM N$(N)> 

120 LET MAX=1E+10 

130 FOR I=1 TON 

140 PRINT 

150 PRINT "TECLEA EL NOMBRE DE LA CIUDAD N2";1 

160 INPUT N$(I> 

170 FOR J=1 TO N ¿LET CC(1,J)>=MAX:¿NEXT J 

180 LET CC(I,I>=0 

190 PRINT 

200 NEXT 1 

210 CLS 

220 PRINT "INTRODUCE A CONTINUACION LA DISTANCIA ENTRE LAS CIUDADES QUE SE"; 

230 PRINT "INDICAN CUANDO ENTRE ELLAS HAYA UN CAMINO DIRECTO.”; 

240 PRINT "SI NO HAY CAMINO DIRECTO PULSA SIMPLEMENTE <RETURN>" ; 

250 PRINT :¿PRINT 

260 FOR I=1 TON 

270 FOR J=I1+1 TO N 

280 PRINT N$(I>3"-"¿N$(J>;5 

290 INPUT DIS 

300 IF DIS=0 THEN GOTO 320 

310 LET C(1,J>=DIS:LET C(J,1>=DIS 

320 NEXT J:NEXT 1 

325 PRINT ¿PRINT "!UN MOMENTO! ESTOY CALCULANDO" 

330 FOR I=1 TON - 

340 FOR J=1 TO N 

350 LET D(1,J>=1 

360 NEXT J:¿NEXT 1 

370 FOR I=1 TO N 

380 FOR K=1 TO N 

390 IF I=K OR C(1,K>=MAX THEN GOTO 440 

400 FOR J=1 TON 

410 IF J=K OR C(K,J>=MAX THEN 430 

420 IF C(1,K>+C(K,J><C(1,J) THEN LET C(1,J>=C(1,K>+C(K,J) ¿LET D(1,J>=D(K,J)> 

430 NEXT J 

440 NEXT KiNEXT I 

450 GOSUB 1000 

460 PRINT ¿PRINT 

470 INPUT "INTRODUCE LOS NUMEROS DE DOS CIUDADES (SEPARADOS POR COMAS) ENTRE 
LAS QUE QUIERAS SABER EL CAMINO MAS CORTO."¿C1,C2 

480 PRINT ¿PRINT N$(C1);" -— "¿N$(C2)>:PRINT 

490 LET DIS=C(C1,C2> 

500 PRINT N$(C1);" - "3 

510 IF Ci=C2 THEN PRINT :¿PRINT :GOTO 535 

520 LET Ci=D(C2,C1> 

530 GOTO 500 

535 PRINT "la distancia minima es";¡DIS 

540 INPUT "QUIERES TERMINAR(S/N)" ¿R$ 

550 IF R$="N" THEN GOTO 450 

560 IF R$="S" THEN END 

570 GOTO 540 

1000 CLS 

1010 FOR I=1 TO INT(N/2> 

1020 PRINT (1%2)-1;N$((12)-1);TAB(490)>;1*2;N$(1+*2> 

1030 NEXT 1 

1040 IF N/2<>INT(N/2)> THEN PRINT N¿N$(N) 


50 


080 REM RRRRROONOSOSRIORORORNODORE ARRODORRRODORARO III AR 


Programa 5. 


Vamos a dar seguidamente las ideas fundamentales en que se basa el 
algoritmo de Floyd que utiliza el programa para resolver el problema: 

En primer lugar, se crea una nueva tabla que se llama D y que tiene el 
siguiente significado: en D(i,j) se va a guardar la penúltima ciudad del ca- 
mino más corto para ir de ¡aj. 

Inicialmente el método considera que la penúltima ciudad del camino 
más corto para ir de ¿ajes í, ya que aún no hemos hallado ningún otro 
camino para ir de ¡aj que el camino directo si lo hay. 

A continuación el algoritmo estudia si para cada pareja de ciudades de 
la red existe otra ciudad intermedia unida a ambas tal que yendo a través 
de ella el camino entre ambas resulte más corto que la distancia que te- 
nemos en la tabla C para ir de una a otra (de ahí que cuando entre dos ciu- 
dades no había camino directo, poníamos un valor muy alto como distan- 
cia entre ellas: para que se cumpliera siempre la condición de que yendo 
por una ciudad intermedia, el camino sea más corto). Cuando ocurra esto, 
el programa colocará en el lugar correspondiente a la distancia entre dos 
ciudades de la tabla C la nueva distancia; y como penúltima ciudad del ca- 
mino más corto para ir de una a otra la penúltima ciudad del camino más 
corto para ir de la ciudad intermedia a la ciudad destino. 

Despues de repetir esto para cada pareja de vértices, al final tendremos 
en la tabla C las distancias más cortas entre todas las ciudades de la red, 
y en la tabla D la penúltima ciudad del camino más corto entre una y otra. 


1 2 3 


Penúltima ciudad para ir de 1 a 2: 1 que hacer 
1-2-3 


s P ird 
E =p Penúltima ciudad para ir de 1 a 3: 2 ) <= 1.3 hay 


Estas operaciones se hacen entre las líneas 370 y 440 del programa. 


Fig. 8. 


1 


Una vez que tenemos las tablas de esta forma, para obtener el camino 
más corto entre dos ciudades de la red, bastará con obtener primero la 
penúltima ciudad del camino más corto para ir de una a otra. Luego a con- 
tinuación, la penúltima ciudad del camino más corto para ir de la ciudad 
origen a la penúltima ciudad obtenida anteriormente y así sucesivamente 
hasta que obtengamos que la penútima ciudad es ya la ciudad origen, tal 
y como se explica en la figura anterior. 

Estas operaciones las hace el programa entre las líneas 500 y 530, con- 
siderando C2 como la ciudad origen y C1 como la ciudad destino, para 
que el camino (que le vamos obteniendo a partir de la penúltima ciudad) 
nos salga en el orden pedido. 

Veamos a continuación con un sencillísimo ejemplo, cómo funciona- 
ría este método explicado que realiza el programa anterior. Supongamos 
que tenemos la red que pusimos anteriormente: 


1 1 2 
4 1 
4 1 3 
Fig. 9. 


Inicialmente las tablas C y D valdrían: 


Fig. 10. 


Al recorrer el programa todas las posibles parejas de ciudades, encon- 
trará que entre las ciudades 1 y.3 existe una ciudad intermedia (la 2), tal 
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que la distancia para ir de 1 a 3 es menor pasando por 2 (1+1=2) que la 
que tenemos puesta hasta ahora en la tabla C (que era MAX por no haber 
camino directo entre ellas). De esta forma, las tablas C y D quedarían con 
los siguientes valores: 


Se ha incluido ya el caso de ir de 3 a 1 que aunque el programa lo encontraría más tar- 
de, sería igual 


Fig. 11. 


A continuación encontrará que para las ciudades 1 y 4 la ciudad 3 es 
una ciudad intermedia que cumple que yendo primero de 1 a 3 (cuya dis- 
tancia es 2, encontrada anteriormente) y luego de 3 a 4 (cuya distancia es 
1) es más corto que la distancia que tenemos en C para ir de 1 a 4 (el ca- 
mino directo). Después de esto, las tablas nos quedarían ahora: 


Como en el anterior, se ha incluido el caso de ir de 4a 1 


Fig. 12. 


Del resto de las parejas de vértices que analiza, únicamente encontrará 
ya que para ir de 2 a 4 hay una ciudad intermedia (la 3), cuyo camino es 


DS 


más corto que el que tenemos en C para ir de 2 a 4 (MAX). Así, las tablas 
nos quedarían finalmente: 


Fig. 13. 


y los caminos más cortos entre dos ciudades cualesquiera se hallarían tal 
y como se dijo anteriormente. 

En las operaciones de las instrucciones 370-440, las variables I y J 
corresponden a la pareja de ciudades entre la que estamos viendo si hay 
un camino más corto yendo por una ciudad intermedia, y la variable K a 
las ciudades intermedias ccn las que vamos probando. 

Aunque el método resulta un poco complicado, esperamos que el lec- 
tor haya sacado una idea general de las bases de éste, y que el programa 
sea útil para resolver cualquier tipo de problema en el que haya que saber 
el camino más corto entre dos puntos incluidos dentro de una red. 


EJERCICIOS: 


1. Cambiar los programas de ordenar los elementos de una lista de ma- 
yor a menor para que los ordene de menor a mayor. 

2. Hacer un programa que pida por pantalla el número de habitantes 
de una serie de ciudades y ordene éstas de mayor a menor número de habi- 
tantes. 

3. Hacer un programa que escriba la lista de una clase. Los nombres 
los leerá de un DATA en el orden en el que se los introduzcan y los escribi- 
rá, uno por línea, ordenados por orden alfabético y con su número delante. 
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LOS GRAFICOS EN BASIC: 
DIBUJOS UTILIZANDO 
CARACTERES 


INTRODUCCION 


NA de las cosas que resulta más atractiva a la hora de pro- 
-—  gramar es el saber cómo hacer gráficos y dibujos en pan- 
talla mediante un programa. Como ya se dedicó un núme- 
ro entero de la coleeción a éstos, en estos próximos capí- 
-—  tulos no se va a profundizar en todas las posibilidades exis- 
tentes, ya que sería repetir todo lo que se expuso en ese 
- número, sino que se van a tratar de dar las líneas maes- 
tras de la programación con gráficos estudiando las ins- 


=> trucciones mas importantes. 


LOS CARACTERES: PRIMERA FORMA 
DE EMPEZAR A DIBUJAR 


Con lo que se ha visto hasta ahora, el lector probablemente ya habrá 
podido realizar algunos programas para hacer dibujos sencillos combinan- 
do las instrucciones PRINT y LOCATE, y las funciones TAB y SPACE$ (o 
SPC) cuando se necesiten. 

Así, una línea se puede dibujar con asteriscos o puntos, mediante el si- 
guiente programa sencillo: 


AAA AAA AAA AAA! 


Fig. 1. 


UN 


10 REM ASTERISCOS 
20 REM 26006 06 06 36 36 6 


25 REM En todos los programas está puesto el LOCATE para MS-DOS. 
26 REM Recordar variantes para otros equipos 
CLS 


40 FOR COL=1 TO 50 
50 LOCATE 3,COL:PRINT "x" 
60 NEXT COL 


Programa l. 
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Para dibujar una línea diagonal bastaría con hacer variar al mismo tiem- 
po la fila y la columna: 


Programa 2. 


La combinación de estas líneas nos permitiría la realización de cual- 
quier tipo de figuras. Así, a continuación podemos observar tres progra- 
mas que nos harían los dibujos de las tres figuras que les acompañan. 


10 18 


vo 1 


10 (4H g000....... 


17 3 0000000000 
Fig. 2. 


EA EOGATTE-TACESiDOiTTIVAIWE 


Programa 3. 
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de 
Z 


— eoeececcns 


e 
27 0000000000 


: 


Fig. 3. 


e(— Secococonos 


Bo Jl 


==) No 


_ pue] 
. 


Programa 4 
O 
0 
O 
O 
O 
O 
O 
O 
o 
2 
O 


16 
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Fig. 4. 


== 10 REM RECTÁNGULO DE PUNTOS 
= : : 20 REM AXAXAALECELELE REL ER K 
- == —23 GRES — — = 
== 30 FOR I=10 TO 1 

40 FOR J=10 TO 15 

== 50 LOCATE 1,J :PRINT "." 
== : $60 NEXT J 

=== 70 NEXT 1 


Programa 5. 


Notar cómo se pueden dibujar tanto el contorno de las figuras como 
se ha hecho en los dos primeros casos como la figura también rellenada 
por dentro como en el tercer programa. 

Sin embargo, tenemos que recordar que el conjunto de caracteres que. 
se pueden escribir dentro de una instrucción PRINT no son únicamente 
aquellos que se pueden introducir mediante una tecla directa, sino que 
cada ordenador tiene 256 caracteres numerados, mediante lo que se de- 
nomina código ASCII, del O al 255. Estos caracteres son aquellos que se 
corresponden con las teclas (letras mayúsculas, minúsculas y acentuadas 
y Caracteres como los asteriscos, puntos, signos aritméticos y demás) y un 
conjunto de caracteres que corresponde cada uno a un cierto gráfico. Re- 
cordar que para que un programa nos escribiera estos últimos por panta- 
lla debemos utilizar la función CHR$(N). N es un número comprendido en- 
tre O y 255, y la función obtiene como resultado el carácter cuyo código 
ASCII es N. 

Así, podemos escribir, mediante un programa, cualquiera de los carac- 
teres ASCII, escribiendo la instrucción: 


PRINT CHR$(N) 


estando en el lugar de N, el número correspondiente al carácter que que- 
ramos dibujar, o la variable donde se encuentre guardado dicho número. 

Para saber los caracteres correspondientes a cada uno de los códigos 
ASCII en nuestro ordenador, bastará con que ejecutemos el siguiente pro- 
grama (que se puso en el número anterior al explicar la función CHR$), 
o consultar el manual de nuestro ordenador en el que suelen venir todos 
los caracteres con su código ASCII. 
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HO REMEBD16O0S ASEH== === 
== ZO REM AAA RAR 
30 CLS == 
== 40 FOR I=0 TO 255 == 
- 50 PRINT I5"-->"; CHR$CI) == 
60 NEXT 1 == 


MITIININOI DON 


MIIDINAAOS 


Programa 6. 


Veamos a continuación cómo podemos realizar dibujos un poco más 
«vistosos» utilizando este conjunto de caracteres más «especiales». 


Fig. 5. 


Un cuadrado de este estilo podríamos dibujarlo en nuestro ordenador 
utilizando los caracteres de la forma: 


AA 


Fig. 6. 


que se encuentran en todos los ordenadores, aunque no tienen el mismo 
código en todos ellos ni la misma forma gráfica. Es importante aquí recor- 
dar que mientras en todos los ordenadores las letras y números poseen el 
mismo código ASCII, los caracteres gráficos especiales ni poseen el mis- 
mo código ASCII ni son iguales para todos, habiendo algunos propios en 
cada equipo. 

Para este sencillo ejemplo del cuadrado, vamos a utilizar los siguientes 
caracteres ASCII de los distintos ordenadores: 
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AMSTRAD COMMODORE 


SEPCTRUM 


Fig. 7. 


El programa nos quedaría de la siguiente manera: 


A 
3 
o 
Y 
Ps 
Í 
Ñ 


MIDA AS 


¿DU PRINIT CHRS(CC(C3)) 


200” PRINT CHR$(C(9)) 


Programa 7. 
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LAS FIGURAS EN MOVIMIENTO 


Vamos a ver en este apartado una técnica muy sencilla que nos va a per- 
mitir aumentar en gran manera las posibilidades de nuestros dibujos en el 
ordenador. 

En numerosos programas resulta muy interesante conseguir que una 
determinada figura se mueva por la pantalla. La técnica general que po- 
demos aplicar a cada uno de los casos es la siguiente: Dibujar la figura que 
queramos que se mueva en un lugar determinado de la pantalla y a conti- 
nuación borrarla, dibujándola en la posición de al lado de la anterior, se- 
gún la dirección en la que queremos que se mueva, volviendo a repetir a 
continuación la acción de borrarla y dibujarla al lado. La realización de 
este proceso un número determinado de veces produce, al realizarse en la 
pantalla, el efecto óptico de que la figura se está moviendo. 


AO O 


LLL 


se borra se borra seborra se borra 


Fig. 8. 


Veamos una primera aplicación de esto en el siguiente programa que 
realiza el movimiento de un asterisco a lo largo de la pantalla en sentido 
horizontal: 


SS LOCAT] 


1 
Y LOULAIE 371 


Programa 8. 


El programa se ha hecho suponiendo que la pantalla consta de 80 co- 
lumnas. En aquellos ordenadores cuya pantalla tenga menos columnas, ha- 
brá que poner como límite superior de la instrucción FOR el número de 
columnas de ésta. 
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A 


TAMBIEN PODEMOS GRADUAR LA VELOCIDAD 


Al ejecutar el programa anterior, probablemente le haya parecido al 
usuario que el aste”'sco avanzaba por la pantalla a una velocidad excesi- 
vamente rápida. Veamos cómo podemos conseguir que la figura que que- 
remos mover lo haga a la velocidad que deseemos. 

Observando el programa anterior se puede ver que cada vez que se re- 
pite la instrucción FOR se dibuja y se borra el asterisco en la posición 
correspondiente. Para conseguir que se mueva más despacio, lo que debe- 
remos hacer será que el programa después de dibujar el asterisco y antes 
de borrarle se quede un momento «parado». Esto se consigue colocando, 
entre medias de las instrucciones que realizan ambas operaciones, la ins- 
trucción: 


FOR K=1 TO 100 :NEXT K 


Cuando el programa llegue a ejecutar esta instrucción, dará a K el va- 
lor 1, a continuación se encontrará con la instrucción NEXT que asignará 
a K el siguiente valor (2); y, como todavía es menor que 100, continuará 
ejecutando la instrucción FOR, realizando el mismo proceso hasta que K 
llegue a 100, momento en el que terminará de ejecutar esta instrucción. 
Como se puede observar Entonces, el efecto de esta instrucción es el de 
provocar un retardo, ya que mientras el programa está realizando las ope- 
raciones reseñadas correspondientes a ella, a efectos de lo que ve el usua- 
rio, el programa está parado sin hacer nada. 

El tiempo de este retardo se puede graduar muy fácilmente, cambian- 
do el límite superior de la instrucción FOR. Cuanto mayor pongamos este 
número, más tiempo estará «parado» el programa y cuanto menor sea, me- 
nos tiempo estará «parado». 

Veamos cómo quedaría el programa del movimiento del asterisco si 
queremos que lo haga a menor velocidad: 


Programa 9. 


La velocidad con la que queramos que se mueva el asterisco podemos 
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determinarla muy fácilmente aumentando o disminuyendo el retardo se- 
gún queramos que vaya más despacio o más de prisa, respectivamente. 


FOR K=1 TO 200 :NEXT K 
haría que disminuyera la velocidad y: 


FOR K=1 TO 50: NEXT K 


haría que aumentara la velocidad. 


Es importante notar en estos programas en los que se utiliza esta ins- 
trucción de retardo, que la variable que se pone en el FOR debe ser una 
variable que no se exista en el programa para otra cosa. 

El movimiento podría realizarse también en vertical o diagonal. A con- 
tinuación se ofrece un programa que mueve en diagonal un muñequito 
que existe en los códigos ASCII del MS-DOS y del AMSTRAD. Para los otros 
equipos se pide el código ASCII del carácter que se quiere mover, ya que 
no existe ningún carácter con la forma del muñequito. 


10 REM FIGURA EN DIAGONAL : 
20 REM 06 2 26 066 6362626 MM IE == : === 


=23-CLS- — 

30 PRINT "AMSTRAD ==" 
-40 PRINT "IBM O COMPATIBLES -->2" 
50 PRINT "OTRO EQUIPO 30 


60 INPUT " TECLEA EL NUMERO QUE CORRESPONDA == === == 
-70 ON N GOSUB 1000,2000,3000 == - = 
A == === == 
80 FOR I=1 TO 20 == 2 A OA RRA 
90 LOCATE 1,I:PRINT CARS, 

100 FOR K= 1 TO 90 : NEXT k 

110 LOCATE 1, L:PRINT == AZAR = 


== = = 
1000 M=250:RETURN ] === 
2000 M=Z:RETURN 

3000 INPUT * INTRODUCE CODIGO DEL CARACTER: QUE QUIERES MOVER" ¿M- 
- 3010 RETURN 


Programa 10. 


Hasta ahora hemos visto los casos en los que queremos mover un solo 
carácter. Supongamos que en vez de un carácter queremos mover una fi- 
gura que hayamos hecho como combinación de una serie de caracteres, 
como, por ejemplo, el cuadrado que dibujamos anteriormente: 
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Fig. 9. 


La técnica para conseguir el movimiento es la misma: dibujarlo en una 
posición, borrarlo y dibujarlo en la posición de al lado. El problema nos 
surge a la hora de borrarlo, ya que ahora no lo podemos hacer tan senci- 
llo como lo hacíamos antes que poníamos: 


PRINT “ “. 


El problema ahora, que aún no hemos visto las posibilidades que ofre- 
ce el uso de los colores, debemos solucionarlo de la siguiente forma: 


— Debemos definir una subrutina para dibujar el cuadrado. Esta sub- 
rutina utilizará la lista representada en la figura para tener los ocho ca- 
racteres que se necesitan para dibujar el cuadrado. 


CD 
1 2 3 4 5 6 7 8 


Fig. 10. 


Antes de llamar a la subrutina (con la instrucción GOSUB) se deberán 
guardar en la lista los caracteres correspondientes. A continuación vemos 
cómo quedaría la subrutina: 


Programa 11. 


— Ahora ya resulta muy fácil la operación de borrar el cuadrado, ya 
que bastará con que, cuando queramos borrarle, llamemos a la subrutina 
habiendo guardado previamente en todas las variables de la lista el va- 
lor: « ». 

El programa para mover el cuadrado nos quedaría entonces de la si- 
guiente manera: 


REM 7 SE 1 FER 
2 V SE PUEDEN COLOCAR LOS CODIGOS DE LOS CARACTI » 
¿2 Er La 01 El EN VIS .0S CODIGOS DE LO 1D WIEN ES EN U M UMAILA 
ANTAS 608 ÍN 
EM-Y-LAS DOS INSTRUCCIONES ANTERIORES SE S 


1 


Programa 12. 


La variable ” indica la posición en la que se empieza a dibujar el cua- 
drado cada vez. Dependiendo del STEP que pongamos en su FOR, el cua- 
drado «saltará» más o menos. 


EL MOVIMIENTO CON TECLAS 


Vamos a ver a continuación otra posibilidad de movimiento de figuras 


hacia la izquierda, hacia arriba o hacia abajo. 
Veamos cómo nos quedaría un programa para mover un carácter cual- 
quiera con cuatro teclas: 


3-35 70=0 


Programa 13. 


Todas las técnicas de movimiento explicadas en estos tres últimos apar- 
tados son aplicables a cualquier tipo de figura que dibujemos en nuestro 
ordenador mediante un programa, tanto las que hemos visto que podemos 
hacer hasta ahora como las veamos en próximos capítulos. 


LOS COLORES EN EL ORDENADOR 


Vamos a ver en este apartado, de una manera rápida, cómo funciona 
el tema de los colores en los distintos ordenadores. 

Como idea general, hay que decir que cuando se posea un monitor MO- 
NOCOLOR, los colores que podemos utilizar en un programa son los MIS- 
MOS; aunque éstos nos saldrán en la pantalla como distintas tonalidades 
e intensidades del color del monitor. 


a) Los colores en el SPECTRUM 


El SPECTRUM posee ocho colores diferentes numerados del 0 al 7, tal 
y como se indica en la figura adjunta: 


BLANCO 
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Cuando encendemos el ordenador y ejecutamos cualquier programa 
sin poner ningún tipo de color, el color con el que nos escribe o dibuja lo 
que le mandemos en el programa es el blanco (código 7) y el color del fon- 
do de la pantalla es el negro (código 0). 

Para cambiar el color con el que queramos que nos escriba o dibuje de- 
bemos utilizar la instrucción INK. Poniendo: 


INK N 


siendo N un número entre 0 y 7 o una variable en la que tenemos guarda- 
do dicho número. A partir del momento en el que el ordenador ejecute 
esta instrucción y hasta que vuelva a ejecutar otra instrucción INK o apa- 
guemos el ordenador, TODAS las cosas que se escriban en pantalla se ha- 
rán con el color, cuyo código se ha puesto en la instrucción INK. Así, si 
ejecutamos el programa: 


=== ===> 
EA == 


Programa l4. 


escribirá HOLA en rojo y a continuación si mandamos listar, o introduci: 
mos nuevas instrucciones, escribirá ya todo en rojo. 

Para cambiar el color del fondo de la pantalla se utiliza la instrucción 
PAPER de la misma manera que la INK. Cuando ponemos: 


PAPER N 


nos cambia el color del fondo de la pantalla a aquel cuyo código es N. Es 
importante notar aquí que el color del fondo no lo cambiará cuando eje- 
cute la instrucción PAPER, sino cuando escriba algo en pantalla o se borre 
la pantalla después de haber ejecutado la PAPER. 

El siguiente programa nos obtiene todos los posibles colores de fondo 
de la pantalla: 


Programa 15. 


También podemos cambiar el color de los bordes de la pantalla. Esto 
se consigue mediante la instrucción BORDER seguida de un número, que 
será, lógicamente, el del código de color correspondiente. 
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Las instrucciones INK y PAPER pueden incluirse también dentro de un 
PRINT, de este modo, el cambio de color de la tinta o de la pantalla sólo 
afectará a los datos que estén dentro de ese PRINT. 


Pone el color N a la escritura 


y, 


PAPERN |> Pone el color N al fondo 


BORDER N | > Pone el color N al borde 


Fig. 12. 


b) Los colores en el AMSTRAD 


En el AMSTRAD pueden llegarse a conseguir hasta 27 colores diferen- 
tes. Cada color posee un código numérico que es el siguiente: 


Blanco 


z 
o 
0% 
” 
o 


y 
E 


Azul pastel 


y 


ul brillante 


17 | Magenta pastel 


Verde brillante 


Rojo brillante Verde marino 


D|Z 
qn: 
> > 
2 
> 


Cian brillante 


Magenta brillante Verde lima 


Ciano pastel 


ol< a] 

> | 2 5 3 ? 

7] a = < E] 

o 13] 5 y fu 
> 5 


Amarillo brillante 


< 
o 

ln] 

A 
o 
E 

S 

- 
2, 


Amarillo pastel 


E Blanco brillante 
Fig. 13. 
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El AMSTRAD utiliza el concepto de «tintero». Tiene internamente 16 
«tinteros» (numerados del O al 15). Cada uno de estos «tinteros» pueden 
tener un color diferente, y cuando queramos cambiar el color del fondo 
de la pantalla o de la escritura en ésta, deberemos asignarles un «tintero», 
siendo a partir de ese momento el color de la pantalla o de la escritura el 
que tenga el «tintero» que le hemos asignado. Existen, por tanto, instruc- 
ciones para asignar colores a cada uno de los 16 «tinteros» y asignar «tin- 
teros» a la pantalla o a la escritura, que vamos a ver a continuación: 


— INK N,M: Asigna al tintero N, el color cuyo código es M 
— PEN N: Asigna a la escritura en pantalla el tintero N 
— PAPER N: Asigna al fondo de pantalla el tintero N 


También hay que tener en cuenta en el AMSTRAD que estando en 
MODO 1 únicamente se pueden asignar los cuatro primeros tinteros (del 
O al 3) y estando en modo 2 sólo los dos primeros (el 0 y el 1). 

Veamos a continuación un programa que mueve un muñequito, cam- 
biándolo de color cada vez que se mueve: 


10 REM MUÑECO. DE COLORES == == 
20 REM delicia = = 


-70 FOR 1=1 TO: 15 AA === 
80 PEN I- == == : : 
90 LOCATE I,T:PRINT CHR$C2Z50) 
== 100 FOR K= 1 TO 20 2 NEXT. Hi === 
TAO LOCATE I¿IPRINT 


120 NEXT 1 
130 FOR J=1 TO 
140 INK J, y+15 
150 NEXT J 
== 160 FOR I=16 -TO 
170 PEN 1-15 === 
-180 LOCATE 1,1 ¡PRINT CHR$(250> == 
190 FOR k= 1 TO 90 : NEXT K 


| 
1 


E 
' 


| 
| 
| 


1] ' i 
AN 
Ñ 


Programa 16. 


La instrucción BORDER también la tiene el AMSTRAD, y funciona 
como en el SPECTRUM: 


— BORDER N: Cambia el color de los bordes de la pantalla a aquel 
cuyo código es N. 
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c) Los colores en el COMMODORE 


El Commodore dispone de 16 colores, tanto para la escritura como para 
el fondo de la pantalla. 

Para variar los colores de la escritura se hace mediante unos códigos 
ASCII, cuyo significado es ése. Así, si ponemos: 


PRINT CHR$(N) 


siendo N el código ASCII correspondiente a alguno de los colores, nos es- 
cribirá a partir de ese momento con ese color. 

En el manual del equipo aparecen los códigos correspondientes a cada 
color. 

Por otra parte, la pantalla y el borde también se pueden cambiar de co- 
lor. Los 16 colores para éstos son los siguientes: 


Azul claro 


Fig. 14. 


Para cambiar el color del fondo de la pantalla, se deberá poner: 
POKE 53281,N, siendo N el código del color correspondiente. 
Para cambiar el color del borde, pondremos: 


POKE 53280,N, siendo N el código del color correspondiente. 


d) Los colores en IBM 


El color de la pantalla y de la escritura se selecciona mediante la ins- 
trucción COLOR. Esta instrucción tiene dos formatos: 


a) Cuando se está en modo texto, es decir, lo que se escriba o dibuje 
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se haga mediante una instrucción PRINT; la instrucción COLOR tendrá el 
siguiente formato: 


— COLOR carácter, fondo 


En el lugar de «carácter» se deberá colocar el número del color con el 
que queramos que nos escriba los caracteres y en el de «fondo» aquél que 
queramos poner como fondo. Se aconseja consultar el manual del orde- 
nador correspondiente para ver la tabla de los códigos correspondientes 
a cada color para cada uno de los casos, ya que puede variar algo de unos 
equipos a otros. También sería conveniente consultar el manual, si en al- 
gún ordenador esta instrucción no diese los resultados apetecidos, ya que 
no es estándar para todos los IBM y puede haber en algunos que tenga 
otros parámetros o cambie alguno de los expuestos. 


b) Cuando se va a dibujar mediante las instrucciones de gráficos que 
se verán más adelante: 


— COLOR fondo, paleta 


Donde pone «fondo» se podrá poner un valor entre O y 15 que selec- 
cionará el color del fondo de la pantalla. 

Donde pone «paleta» habrá que poner un valor entre O y 1. Este valor 
indica las dos posibles gamas de colores que existen, de acuerdo con el si- 
guiente cuadro: 


Fig. 15. 


En las instrucciones para hacer gráficos de IBM, que veremos más ade- 
lante, siempre hay que especificar el color, con un número del 0 al 3, que 
corresponderá a un color u otro dependiendo de que hayamos puesto un 
0 o un 1 en la paleta y de acuerdo con la tabla anterior. 


72 


Así, después de haber puesto la instrucción: 
COLOR 3,0 


si mandamos dibujar algo mediante alguna de las instrucciones de gráfi- 
cos, que veremos en próximos capítulos con el color 2, nos lo dibujará en 
rojo, ya que al haber especificado la paleta 0, el color 2 de la paleta O es 
el rojo. 

Cuando estamos en el modo para hacer gráficos, que ya veremos más 
tarde cómo se entra en él, también se pueden escribir caracteres median- 
te PRINT y podemos decidir el color con el que queremos escribirlos aña- 
diendo a la instrucción COLOR, en este último formato visto, algún pará- 
metro que dependerá de cada equipo y para lo que se aconseja consultar 
el manual del ordenador en cada caso. 

Jugando con estas instrucciones de colores que hemos visto en este 
apartado, podemos conseguir realizar las operaciones de borrado de las fi- 
guras para simular movimiento de una manera más sencilla de como lo hi- 
cimos anteriormente. BORRAR una figura será dibujarla habiendo puesto 
como color de escritura el MISMO DEL FONDO DE LA PANTALLA. 

Veamos esta idea para el programa de mover un cuadrado en el SPEC- 
TRUM. 


1140 PRINT 0$(3>; - === > 
1150 FOR lI=1 TO 3 == == 
1160 PRINT C$(8); == = RA 
a bt a = —Á AA 
=> : 
A == : 


Programa 17. 


Este programa <. podría trasladar a cualquiera de los otros ordenado- 
res, cambiando simplemente los códigos de los caracteres por sus códigds 
correspondientes y las operaciones de poner como color de escritura el 
mismo del fondo de la pantalla por las que se correspondan de acuerdo 
con lo explicado en este último apartado. 

El cuadro que se ofrece a continuación nos indica el número de filas 
y columnas que tiene cada ordenador en modo texto, es decir para situar- 
se mediante la instrucción LOCATE o equivalentes (PRINT AT en el SPEC- 
TRUM) y escribir mediante instrucciones PRINT. 


COLUMNAS 
20 — MODO 0 
AMSTRAD 40 — MODO 1 
80 — MODO 2 


Las filas se 
cuentas en éstos 
de abajo a arriba 
y la numeración 

comienza en 0 


80 (40 en SCREEN 1) 


Los modos del AMSTRAD y SCREEN en MS-DOS se tratan en el capítulo 7 


Fig. 16. 


EJERCICIOS: 


1. Realizar un programa que pida los valores de los puntos que tienen 
cada uno de los equipos de uno de los grupos de la liga de fútbol, balon- 
cesto o cualquier otro deporte y dibuje en pantalla la clasificación de la si- 
guiente manera: 
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NOMBRE 1 


NOMBRE 3 


NOMBRE 4 


Fig. 17. 


2. Hacer un programa que escriba una franja horizontal, formada por 
una serie de cuadrados, cada uno de uno de los distintos colores que posea 
nuestro ordenador. 

3. Realizar un programa que haga un dibujo geométrico a base de pun- 
tos combinando distintos colores 

4. Hacer un programa que mueva un carácter a lo largo de la pantalla 
hasta que se pulse una tecla y se le pare. 


RESPUESTAS: 


10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
$0 REM 
70 REM 
80 REM 
20 REM 


MDI MM DEM MD 0 MM 60 MM 0 MM MM ME II 

EN EL PRIMER BLOQUE DEL PROGRAMA HABRIA QUE 
PEDIR LOS NOMBRES Y LOS PUNTOS DE CADA EQUIPO. 
SUPONEMOS QUE LOS NOMBRES SE GUARDAN EN N$(N)> 

Y LOS PUNTOS EN P(N> Y QUE EN ESTAS LISTAS ESTAN 
ORDENADOS DE MAYOR A MENOR PUNTUACION. 
EMANAN 
DIBUJO DE LA FIGURA 

EAAAAAEAA AAA RR 


95 INPUT "CODIGO DEL CARACTER CUYA FORMA ES UN CUADRADO" ;COD 
100 CLS == 

110 FOR I=1 TON 

120 LOCATE 1,1:+PRINT N$CT> 

130 LOCATE 1,20 

140 FOR J=1 TO-:PCI> 

1150 PRINT CHR$(COD> ; 

160 NEXT J 

170 NEXT 1 


Programa 18. 


TS 


DISEÑANDO NUESTROS PROPIOS 
CARACTERES 


AY algunos ordenadores como el SPECTRUM y el AMS- 
TRAD que nos permiten diseñar caracteres con la forma 
que nosotros queramos para luego posteriormente dibu- 
jarlos en pantalla. 


METODO GENERAL DE DISEÑO DE 
ESTOS CARACTERES 


Estos caracteres que nosotros diseñemos ocuparán en 
pantalla, cuando sean escritos, el espacio que normalmente ocupa un ca- 
rácter, es decir, un pequeño cuadrado. 

Para diseñar estos caracteres, se supone que este cuadrado está dividi- 
do en una malla de 8 por 8, tal y como se indica en la figura: 


Fig. 1. 


En esta malla se deben rellenar los pequeños cuadritos de la manera 
que queramos para que nos configuren la forma del dibujo que queremos 
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diseñar. En la siguiente figura vemos una manera de rellenar los cuadritos 
de la malla para conseguir la forma de una nave espacial: 


% JJ QQ 14 2h ww N 


Fig. 2. 


Una vez que tenemos realizada esta operación, debemos coger las ocho 
filas de la malla una a una y con cada una hay que hacer lo siguiente: por 
cada cuadrito de la fila que hayamos rellenado debemos poner un 1 y por 
cada cuadrito de la fila que hayamos dejado en blanco sin rellenar un 0. 
De esta manera por cada fila tendremos una lista de unos y ceros de 8 ele- 
mentos. á 

Veamos para el ejemplo anterior de la nave espacial cómo tendríamos 
que hacer esto: 


— La primera fila es la siguiente: 


Fig. 3. 


y, por tanto, la lista de unos y ceros que le corresponde será: 


Fig. 4. 


Realizando la misma operación para el resto de las filas nos quedaría 
lo siguiente: 
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Fig. 5. 


Una vez que tenemos realizado esto para la figura que queremos dise- 
ñar, tendremos que introducirlo en el ordenador según se explica a conti- 


Sl 
= 
p 
2; 
O* 
= 


DEFINICION DE CARACTERES EN EL SPECTRUM 


El funcionamiento en el SPECTRUM de estos caracteres nuevos que de- 
finimos nosotros es el siguiente: el carácter que nosotros hemos diseñado 
es asociado a una tecla del teclado del ordenador. Luego, estando en modo 
gráfico (AL QUE SE ENTRA PULSANDO SIMULTANEAMENTE LAS TE- 
CLAS CAPS SHIFT Y GRAPHICS) cada vez que se pulse esa tecla saldrá la 
forma del carácter que hayamos diseñado. 

Así, si hubiéramos asociado el carácter diseñado anteriormente de la 
nave espacial a la tecla A, cada vez que pulsemos en modo gráfico la tecla 
A nos escribirá en la pantalla: 


+ 


Fig. 6. 


El problema que nos queda por resolver ahora es cómo decirle a nues- 
tro ordenador que la figura que hemos diseñado la queremos asociar a la 
tecla A. Esto se hace mediante las siguientes ocho instrucciones de pro- 
grama: 
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ISR "A" +1 
SNE VOR HH "1 


Programa 1. 


Las ocho instrucciones se deben colocar consecutivas. Después de la 
palabra USR y entre comillas va la tecla a la que queremos asignar nues- 
tro nuevo carácter, y en la PRIMERA instrucción (la que lleva +0 después 
de la tecla entre comillas) se pone después de la palabra BIN la lista de 
ceros y unos correspondiente a la PRIMERA fila de la malla del dibujo di- 
señado. La SEGUNDA instrucción llevará la lista de unos y ceros corres- 
pondiente a la SEGUNDA fila, y así sucesivamente. Puede observarse que 
el programa puesto anteriormente correspondería a la definición de la 
nave espacial diseñada al principio asociándola a la tecla A. 

Una vez que un programa ha ejecutado estas instrucciones la tecla 
correspondiente se queda con el nuevo carácter asociado para modo grá-' 
fico hasta que se le asocie otro carácter mediante otro conjunto de ins- 
trucciones de la misma forma o se apague el ordenador. 

A continuación se ofrece un programa para mover por pantalla la nave 
espacial que hemos diseñado con dos teclas: 


Programa 2. 


MN 


LA DEFINICION DE CARACTERES EN EL AMSTRAD 


En el AMSTRAD, el nuevo carácter que hemos diseñado es asociado a 
un código ASCII y cuando queremos dibujar este carácter en pantalla, lo 
que deberemos hacer será poner: 


PRINT CHR$(N) 


siendo N el número del código ASCII al que hemos asignado el nuevo ca- 
rácter que hemos definido o bien una variable numérica donde se encuen- 
tra guardado dicho número. 

Hay que tener aquí en cuenta que al definir el nuevo carácter y asig- 
narle un código ASCII, se pierde el carácter que tuviera asignado este có- 
digo ASCII anteriormente. Por tanto, deberemos asignar el carácter al có- 
digo ASCII de otro carácter que no vayamos a utilizar. 

La instrucción para asignar la figura que nos hemos inventado a un có- 
digo ASCII es la SYMBOL y se utiliza de la siguiente manera: 


Programa 3. 


De los nueve números que se ponen a continuación de la palabra 
SYMBOL, el primero indica el código ASCII al que vamos a asignar el nue- 
vo carácter y los ocho restantes son los números correspondientes a la lis- 
ta de ceros y unos de cada una de las filas después de haberlas transfor- 
mado de binario a decimal. 


00011000 = 24 
IEEE 


01011010 = 90 


01111110 = 126 


30 


Después de ejecutar esta instrucción, en el código ASCII que hayamos 
puesto (250 en nuestro ejemplo), se habrá colocado el dibujo correspon- 
diente a la nave espacial y cada vez que pongamos: 


PRINT CHR$(250) 


se dibujará en la pantalla una nave espacial. 

Al igual que ocurría en el SPECTRUM, este código quedará con la fi- 
gura asignada hasta que se le asigne otra con otra instrucción SYMBOL o 
se apague el ordenador. 

Veamos cómo quedaría para el AMSTRAD el programa de mover la 
nave espacial con dos teclas después de haber ejecutado la instrucción 
SYMBOL reseñada anteriormente: 


ISIBDAMA BARA MÍN 
DRANIA FARA 1 


20 REM TECLAS PARA M 
o! , rm — 


DAS A, 


Programa 4. 


Cuando encendemos el ordenador AMSTRAD, tenemos la posibilidad 
de asignar los caracteres que nosotros diseñemos a los códigos ASCII com- 
prendidos entre el 240 y el 255. Si queremos asignar caracteres a otro có- 
digo, deberemos poner previamente la instrucción: 


SYMBOL AFTER N 


siendo N un número de código o una variable donde se encuentre guar- 
dado dicho número. A partir de que se ejecute esta instrucción, se podrán 
asignar los caracteres que hayamos definido nosotros, a los códigos ASCII 
comprendidos entre N y 255. De esta forma, ejecutando esta instrucción, 
podemos posteriormente asignar los caracteres a los códigos que quera- 
mos. 

Si pusiésemos la instrucción: 


SYMBOL AFTER 256 
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haríamos que no se pudieran asignar los caracteres a ningún código AS- 
CII. Esto lo podríamos utilizar en algún caso en el que nos interesase que 
no se perdiera ninguno de los. caracteres ASCII que vienen ya predefini- 
dos en el ordenador al asignarles por algún error un carácter de los nues- 
tros. 


EJERCICIOS: 


1. Diseñar una figura en una malla de 8 por 8 y realizar un programa 
para definirla en un carácter del ordenador. Hacer a continuación un pro- 
grama, como el que se propuso en el capítulo anterior, para mover este ca- 
rácter definido, a lo largo de la pantalla, hasta que se pulse una determina- 
da tecla y se le pare. 
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LOS GRAFICOS PUNTO A PA 


INTRODUCCION 


N este último capítulo que vamos a dedicar a la realiza- 
ción de gráficos en el ordenador mediante un programa 
vamos a ver las técnicas que podemos llamar de dibujo 
propiamente dichas, ya que son las que se asemejan más 
a la forma manual de dibujar: realizar una figura a base 
de líneas continuas formadas por una serie de puntos con- 
secutivos sin espacios entre ellos (con lo que conseguimos 
el efecto de línea continua). 


LA PANTALLA PARA GRAFICOS 


Cuando utilicemos las instrucciones para dibujar punto a punto que va- 
mos a ver a continuación, la pantalla en la que vamos a hacer los dibujos 
se considera dividida en una malla al estilo de la que se representa en la 
siguiente figura: 
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Cada uno de estos pequeños cuadritos es lo que vamos a llamar un pun- 
to. Cuando la división de la pantalla no sea muy grande estos puntos serán 
pequeños cuadraditos, mientras que cuando la división sea grande estos 
puntos se verán como tales. Hay ordenadores que permiten dividir la pan- 
talla en dos o tres formas distintas (con puntos más grandes y puntos más 
pequeños), mientras que otros únicamente tienen una única división. 

A continuación se adjunta un gráfico de las filas y columnas en las que 
se divide la pantalla para gráficos en cada uno de los ordenadores. En los 
que hay posibilidad de dividirla de varias formas así se indica: 


PUNTOS 
HORIZONTALES 


PUNTOS 
VERTICALES 


320 
640 
640 


400 
(Para los 3 modos) 
COMMODORE 


200 — SCREEN 1 
200 — SCREEN 2 
400 — SCREEN 3 


En el Spectrum y en el Amstrad se numeran de abajo a arriba los verticales y 
comienzan en cero 


Fig. 2. 


Estas divisiones, indudablemente, no se visualizan en pantalla. Habrá 
una serie de instrucciones, que vamos a estudiar en este capítulo, median- 
te las cuales podremos dibujar un punto en unas coordenadas determina- 
das que especifiquemos de la pantalla. Así, si en un programa se ejecuta 
la instrucción correspondiente a dibujar un punto en la columna 100, fila 
150, la pantalla nos quedaría tal y como se muestra en la figura 3: 


Aquellos ordenadores que tienen la posibilidad de dividir la pantalla de 
distintas maneras, también tendrán instrucciones correspondientes para 
realizar cada una de las divisiones. 
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Fig. 3. 


LAS INSTRUCCIONES PARA DIBUJAR PUNTOS 


Para dibujar un punto en la pantalla, tal y como se ha dicho antes, hay 
dos instrucciones, dependiendo de los ordenadores en los que trabajemos: 


a) SPECTRUM, AMSTRAD, COMMODORE 
Utilizan la instrucción: 
PLOT X,Y ,T 


donde X indica la coordenada del punto a dibujar en el eje horizontal (co- 
lumna), Y la coordenada en el eje vertical (fila) y T el color con el que que- 
remos dibujar el punto correspondiente. Este valor T no se puede poner 
en el SPECTRUM. El punto se dibujará en este ordenador, con el color que 
hayamos especificado en la última instrucción INK. En el COMMODORE 
sólo se puede poner en T un 0 o un 1, según queramos que el punto nos 
lo dibuje con el color de la escritura o el mismo del fondo de la pantalla 
(es decir, nos lo borre). Cuando no se ponga nada en el lugar correspon- 
diente de T, el punto se dibujará con el color especificado para la escritu- 
ra en la última instrucción que se haya ejecutado para cambiar dicho color. 
El Amstrad posee además la instrucción: 


MOVE X, Y 


que permite situar el cursor de gráficos en las coordenadas X e Y sin di- 
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bujar ningún punto en éstas. Funciona, como puede observarse, al igual 
que el LOCATE para la escritura de caracteres. 


b) MS-DOS (IBM) - 


En estos ordenadores la instrucción para dibujar un punto en la pan- 
talla es: 


PSET (X, Y), color 


X e Y tienen el mismo significado que en el PLOT visto anteriormente, y 
donde pone color se debe poner un número del 0 al 3 que corresponderá 
al color de ese número en la «paleta» (0 ó 1) que se haya especificado en 
la instrucción COLOR, para cuando se está en modo gráfico, que se vio en 
capítulos anteriores. 

A diferencia de lo que ocurría con la instrucción PLOT, en ésta es obli- 
gatorio poner siempre el número del color con el que se quiere dibujar el 
punto. 

Esta instrucción PSET es la que tienen también los equipos MSX. 


LOS MODOS GRAFICOS 


Una duda que posiblemente tenga el lector con lo que se ha visto hast:. 
ahora es si estas instrucciones se pueden poner en cualquier parte del pro- 
grama, entremezcladas con las instrucciones PRINT que hemos visto has- 
ta ahora, o hay que usarlas aparte para dibujar. 

Veamos lo que ocurre con esto en cada uno de los equipos: 


a) SPECTRUM 


El SPECTRUM tiene una división de la pantalla para escribir los carac- 
teres y otra para dibujar los puntos tal y como se indica en el siguiente cua- 


dro: 
INSTRUCCIONES FILAS COLUMNAS 


Fig. 4. 


Cada vez que se ejecute en un programa una instrucción PLOT, se di- 
bujará un punto en las coordenadas correspondientes y cada vez que se eje- 
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cute un PRINT, se escribirá lo que en él se indique en el lugar que corres- 
ponda. 
Así, si pusiéramos el siguiente programa: 


30 PLOT 64,4 43 


Programa 1. 


la pantalla nos quedaría de la siguiente manera: 


HOLA 


Y Fig. 5. 
a) AMSTRAD 


El AMSTRAD tiene lo que se llaman tres modos distintos: MODO 0, 
MODO 1 y MODO 2. En cada uno de estos tres modos hay unas coordena- 
das distintas para texto (instrucciones PRINT y LOCATEB), siendo, sin em- 
bargo, las mismas para gráficos (instrucciones PLOT y MOVE) en los tres 
modos. Una vez que estamos en uno de los modos, el ordenador se com- 
porta de la misma manera que lo hacía el SPECTRUM, es decir, por cada 
instrucción PLOT que pongamos se dibujará un punto en la pantalla de 
acuerdo con la división de la pantalla en el modo en que estemos, y cuan- 
do pongamos una instrucción PRINT se escribirá también de acuerdo con 
la división de la pantálla para texto. 

Para cambiar de un modo a otro se utiliza la instrucción MODE. Esta 
instrucción tiene el siguiente formato: 


MODE N 
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siendo N un número comprendido entre 0 y 2 o, como decimos siempre, 

una variable que contenga ese número (o una expresión cuyo resultado sea 

un número entre 0 y 2). Cuando un programa ejecuta una instrucción 

MODE cambia la pantalla al modo indicado en ésta, borrándose todo lo 

que hubiera escrito en el modo anterior y quedando preparada para reci- 

bir instrucciones PLOT, MOVE, PRINT o LOCATE con coordenadas corres- 
pondientes al nuevo modo. 


A la hora de trabajar en el AMSTRAD con las instrucciones para hacer 
gráficos de puntos (PLOT y las que se estudien posteriormente dentro de 
su misma línea) hay que tener en cuenta las siguientes instrucciones: 


— GRAPHICS PAPER: Funciona igual que PAPER, pero sirve para po- 
ner el color del fondo de la pantalla cuando se dibujen puntos mediante 
las instrucciones de gráficos. 


— GRAPHICS PEN: Funciona igual que el PEN, pero para la escritura 
de puntos mediante las instrucciones de gráficos. 


— CLG: Sirve para borrar la pantalla de gráficos. 


c) MS-DOS 


Los ordenadores con sistema operativo MS-DOS (IBM o compatibles) 
tiene tres posibles modos graficos cuyas coordenadas de pantalla se expre- 
saron ya anteriormente. 


Para poner la pantalla en cada uno de estos modos se debe poner la ins- 
trucción: 


SCREEN N 


siendo N un número comprendido entre 1 y 3. Al ejecutarse esta instruc- 
ción se pondrá la pantalla en el modo indicado, borrándose todo lo que 
hubiera escrito en ese momento. Estando en cualquiera de estos tres mo- 
dos se pueden ejecutar tanto instrucciones de dibujar puntos (con las 
coordenadas correspondientes) como instrucciones para escribir caracte- 
res (print); escribiéndose cada cosa que mandemos (puntos o caracteres) 
en el lugar correspondiente, de acuerdo con las coordenadas especifica- 
das. 

El número de filas y columnas para el texto (escritura de caracteres) 
es de 24 x 80 en todos los modos, excepto en el SCREEN 1, que es de 
24 x 40. 

Estos equipos MS-DOS poseen además el modo SCREEN O, que es en 
el que se está cuando se enciende el ordenador y no se ejecuta ninguna 
instrucción SCREEN. Este modo es únicamente para texto y en él no se 
pueden utilizar las instrucciones de dibujo de puntos. 
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El siguiente programa, escrito para MS-DOS, haría lo que se indica en 
la figura: 


Programa 2. 


HOLA 


/ 
Fig. 6. 


Los ordenadores MSX tienen el modo SCREEN 1 del MS-DOS funcio- 
nando igual que éstos en este modo. 


d) COMMODORE 


El Commodore posee una única pantalla gráfica de 320 puntos en ho- 
rizontal por 200 en vertical. 

Es importante destacar aquí que en el SPECTRUM y en el AMSTRAD 
las coordenadas verticales se cuentan de abajo arriba, mientras que en el 
resto se hace al contrario. 

Recordar que para las instrucciones de gráficos del Commodore es ne- 
cesario que tenga el BASIC Simón (ampliación del BASIC del Commodo- 
re que también existe en el mercado). 

Como resumen final del dibujo de puntos en los modos gráficos, se ofre- 
cen dos programas que dibujan 30 puntos en la pantalla aleatoriamente de 
distintos colores. El primer programa es para equipos MS-DOS y el segun- 
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do para AMSTRAD. Se deja como ejercicio a los lectores que intenten rea- 
lizarlo para el resto de los ordenadores, según las normas explicadas ante- 
riormente. 


Programa 4. 


EL DIBUJO DE RECTAS 


Hasta ahora hemos visto cómo se dibujan puntos en la pantalla, pero 
indudablemente los dibujos no están formados únicamente por puntos, 
sino que en la mayoría de las ocasiones queremos que nos haga figuras a 
base de rectas o circunferencias. Vamos a ver en este apartado cómo po- 
demos conseguir realizar estas líneas. 

La primera idea para dibujar una recta con las instrucciones que cono- 
cemos sería poner: 


Programa 5. 


No) 


O 


Estas instrucciones anteriores nos dibujarían 100 puntos desde el pun- 
to 100,100 al 200,100. Si ejecutamos este pequeño programa observaremos 
que esto se traduce en una línea horizontal desde el punto 100,100 al 
200,100. 

Utilizando esta misma técnica podríamos conseguir dibujar rectas en 
vertical o diagonal. Sin embargo, no es necesario poner estas instruccio- 
nes para dibujar rectas, ya que nuestro ordenador va a tener unas instruc- 
ciones específicas para esto, que vamos a ver a continuación: 

El SPECTRUM dispone de la instrucción DRAW y el AMSTRAD de la 
DRAWR para trazar rectas. Ambas instrucciones funcionan igual y su for- 
mato es el siguiente: 


DRAW 
DRAWR 


incremento x, incremento y 


Fig. 7. 


donde «incremento x» es el número que se sumará a la coordenada x del 
punto en el que se encuentra el cursor de gráficos actualmente e «incre- 
mento y» es el número que se sumará a la coordenada y. Tras sumar estos 
dos números a las coordenadas obtendremos las coordenadas de un nue- 
vo punto. La instrucción trazará una recta desde el punto en el que se en- 
cuentra actualmente el cursor de gráficos hasta el nuevo punto que se ha 
obtenido como fruto de la suma antes indicada. 
Así, si en el SPECTRUM ponemos: 


Programa 7. 


al ejecutarse estas instrucciones se nos dibujaría una recta desde el punto 
100,100 al 75,150 tal y como se indica en la figura: 
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Fig. 8. 


Es importante destacar aquí que la recta se dibuja desde el punto en el 
que se encuentra el cursor de gráficos. El cursor de gráficos se encontrará 
en el punto en el que se hiciera la última instrucción PLOT o MOVE. Cuan- 
do queramos trazar una recta a partir de un punto distinto deberemos po- 
ner previamente a la DRAW o la DRAWR una instrucción PLOT para situar- 
nos en ese punto, como hemos hecho en el ejemplo expuesto anterior- 
mente. 

El AMSTRAD posee además una instrucción DRAW con el siguiente for- 
mato: 


DRAW x,y 


siendo x e y las coordenadas del punto en el que queremos que termine 
la recta que dibuje. Así, el programa para dibujar la recta anterior nos que- 
daría en el AMSTRAD utilizando la instrucción DRAW de la siguiente ma- 
nera: 


e al 
E O A, 


===> 
=== 2025555 ====> 


Programa 8. 


El COMMODORE dispone de la instrucción LINE para el trazado de 
rectas, que tiene el siguiente formato: 


LINE X1,Y1,X2,Y2,T 


9Z 


en donde X1 y Y1 son las coordenadas del punto en el que queremos que 
inicie la recta y X2 y Y2 las del punto en el que queremos que la termine. 
T tendrá el valor 1 cuando queramos la dibuje con el color definido para 
la escritura, mientras que tendrá el valor 0 cuando queramos que la dibu- 
je con el mismo color del fondo de la pantalla (es decir, que la borre). 

El MS-DOS tiene también esta misma instrucción LINE con el siguien- 
te formato: 


LINE (X1,Y1)-(X2,Y2),color 


El funcionamiento es el mismo que para el COMMODORE. Si se omi- 
ten las coordenadas X1,Y1 se toma como punto de inicio de la recta aquel 
en el que se encuentre el cursor de gráficos en ese momento. 

El MS-DOS tiene también la instrucción DRAW con el siguiente for- 
mato: 


DRAW A$ 


donde Af$ es una expresión alfanumérica que puede contener alguno de 
los cuatro valores que se expresan en el cuadro adjunto: 


n debe ser una constante numérica y las rectas se dibujan a partir 
de dónde se encuentre el cursor de gráficos 


Fig. 9. 


También se pueden poner dentro del valor alfanumérico varios valores 
de éstos separados por punto y coma, realizándonos en este caso las ope- 
raciones correspondientes a cada uno de ellos una detrás de otra. 


Veamos un ejemplo para dibujar un cuadrado mediante esta instruc- 
ción: 


Programa 9. 
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Con estas instrucciones vistas podemos realizar cualquier tipo de figu- 
ras que estén formadas a base de rectas. Como ejemplo final se pone un 
programa para dibujar la siguiente figura: 


(100,100) (150,100) 


(100,50) (150,50) 


(125,25) 


Fig. 10. 


Programa 10. 


EL DIBUJO DE CIRCUNFERENCIAS 


Para dibujar circunferencias tenemos una instrucción común a todos 
los ordenadores, excepto el AMSTRAD: la instrucción CIRCLE tiene el for- 
mato: 


CIRCLE X, Y,R 


No) 


4 


Cuando un programa ejecuta esta instrucción dibuja un círculo de cen- 
tro las coordenadas X e Y y de radio el valor especificado en R. Para los 
equipos MS-DOS se debe poner esta instrucción con el formato: 


CIRCLE (X,Y),R 


En el AMSTRAD no existe esta instrucción y el dibujo de las circunfe- 
rencias hay que realizarlo mediante el siguiente programa: 


Programa ll. 


Como final del capítulo se ofrece un programa que realiza un bonito 
dibujo en la pantalla a base de combinación de circunferencias. Está rea- 
lizado para equipos MS-DOS, aunque con las pautas explicadas anterior- 
mente no resultará difícil adaptarlo a cualquier otro equipo. 


Programa 12. 


EJERCICIOS: 


1. Realizar un progrqma para dibujar una figura geométrica a base de líneas me- 
diante las pautas explicadas en el capítulo, y hacer que se desplace hacia la dere- 
cha al pulsar una tecla y hacia la izquierda al pulsar otra. (NOTA: Recordar que la 
operación de borrar la figura se puede hacer de manera sencilla dibujándola des- 
pués de haber puesto como color de los gráficos el mismo del fondo de la pantalla.) 

2. Realizar un trozo de programa que simule el movimiento de un proyectil a 
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lo largo de la pantalla. (NOTA: Mover un punto o dos puntos juntos de acuerdo cor, 
la técnica de movimiento relatada en el capítulo 5.) 


RESPUESTAS: 


Programa 13. 


GESTION DE FICHEROS EN Pm 


A 


¿QUE ES UN FICHERO? 


N numerosos programas de los que se han presentado has- 
ta ahora, probablemente el lector se haya planteado un 
problema que no ha sabido resolver: cómo se pueden con- 
servar los datos que el programa obtiene como fruto de 
las operaciones que realiza o los que le introducimos me- 
diante distintas instrucciones INPUT. Toda la información 
que maneja un programa (los datos numéricos o alfanu- 
méricos) está guardada en sus distintas variables, ya sean 
== estas variables simples o listas o tablas, y cuando el pro- 
grama termina o apagamos el ordenador ya no se puede volver a acceder 
a estos datos, ya que al acabar un programa se borran todos los datos que 
hubiera en sus variables. 

La única forma que conocíamos hasta ahora de conservar de alguna 
manera los datos era listarlos por pantalla o por impresora, pero esto re- 
sulta evidentemente insuficiente, ya que si otro día quisiésemos ejecutar 
algún programa que utilizase los datos obtenidos en ese programa tendría- 
mos que introducirle al nuevo programa todos esos datos mediante ins- 
trucciones INPUT, con la incomodidad que esto supone si es una gran can- 
tidad de datos. 

La idea de FICHERO nos va a solucionar este problema. Un FICHERO 
es un lugar de disco o cinta en el que se graban los datos que un programa 
tiene guardados en algunas de sus variables, mediante unas instrucciones 
específicas, y al que puede acceder otro programa o el mismo, mediante 
otras instrucciones, para leer los datos que se grabaron. 

Así, si recordamos, por ejemplo, el programa que hicimos para contro- 
lar el stock de una serie de productos existentes en un almacén, cada vez 
que se comenzara a ejecutar el programa habría que introducir el stock 
existente de cada producto, ya que, por ejemplo, al finalizar de introducir 
los cambios existentes, obtener el listado con las nuevas existencias y aca- 
bar el programa y apagar el ordenador, la cantidad de stock de cada pro- 
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PROGRAMA 1 PROGRAMA 2 


DATOS 
(FICHERO) 


>: 


Fig. 1. 


ducto que teníamos guardada en cada variable de la lista se nos borra. Si 
al día siguiente quisiésemos volver a ejecutar el programa, tendríamos que 


Utilizando ficheros, se nos solucionaría esto, ya que podríamos poner 
una instrucción para grabar esas cantidades en un fichero y otra para leer- 
las del fichero y pasarlas de nuevo a las variables de la lista. 


A 


TIPOS DE FICHEROS Y ESTRUCTURA 


Indudablemente, los datos que grabamos en un fichero exigen que esto 
se haga de acuerdo a una determinada estructura que vamos a ver a con- 
tinuación. Los ficheros que utilicemos pueden ser de dos tipos: secuencia- 
les o de acceso directo. 


Jl 


LOS FICHEROS SECUENCIALES 


fichero secuencial es aquel en el que los datos deben ser leídos en 
el mismo orden en que fueron grabados y comenzando siempre por el pri- 
mero (en orden de secuencia). 

Los ficheros se estructuran en lo que se llaman REGISTROS. Un regis- 
tro de un fichero secuencial en BASIC estará formado por todos los datos 
que se graben de una sola vez (en una misma instrucción de las que vea- 
mos a continuación). Cada instrucción que ejecute un programa para gra- 
bar datos en un fichero secuencia, creará un nuevo registro en éste, inme- 
diatamente después del último que se grabó, con los nuevos datos grabados. 


E 
ls] 


No) 


3 


REGISTRO REGISTRO REGISTRO 


Posible estructura de un fichero secuencial en el que se han grabado 
3 registros con distintos datos cada uno 


Fig. 2. 


— Las instrucciones para manejar los ficheros secuenciales en BASIC 
son: 


1) Abrir el fichero 


En todos los programas en los que se vaya a utilizar un fichero, antes 
de realizar cualquier operación sobre él se debe ejecutar la instrucción 
OPEN (abrir), que sirve para indicarle al ordenador que vamos a usar ese 
fichero, especificando al mismo tiempo sus características. 

Las características que se suelen especificar en un fichero al abrirle son 
las siguientes: 


a) Tipo de fichero: Secuencial o de acceso directo. 

b) Modo para el que se abre el fichero: Para leer datos de él o grabar 
datos en él. 

c) Número del fichero: Todos los ficheros que se utilicen en un mis- 
mo programa deben llevar un número para identificarlos. 

d) Nombre del fichero: Este será el nombre con el que el fichero se 
grabará en el disco o la cinta. Si hubiera varias unidades de disco o cinta 
habría que especificar aquí, además del nombre, la unidad donde se en- 
cuentra el disco o la cinta en la que queremos grabar. 


Es importante destacar la diferencia existente entre el número de fi- 
chero y el nombre de éste. El nombre va a ser aquel con el que quede gra- 
bado en el disco y, por tanto, el que habrá que poner cada vez que quera- 
mos utilizar el fichero en cualquier programa. Aparte de esto, todos los fi- 
cheros que se utilicen en un mismo programa deben ser numerados con 
un número distinto para poderlos identificar luego, ya que en las instruc- 
ciones que se pongan para grabar o leer datos de ellos, se pone el número 
del fichero en el que se quiere hacer la operación. Así, un mismo fichero 
tendrá el MISMO nombre en cualquier programa que sea utilizado, pero 
puede tener DISTINTOS números, ya que si, por ejemplo, en un programa 
es abierto después de que ya hay cuatro más con los números del 1 al 4 
se le asignará el número 5, mientras que si en otro programa sólo se le uti- 
liza a él, se le puede abrir con el número 1 o con cualquier otro. El nú- 
mero de fichero en algunos manuales recibe también el nombre de canal. 
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Vistas las características que determinan un fichero, veamos los forma- 
tos de la instrucción OPEN en los distintos ordenadores: 
— COMMODORE 64: d 
OPEN n. de fichero,1,modo,«nombre» 


El 1 que se pone a continuación del número de fichero indica que el 
fichero es de acceso secuencial. Como en el COMMODORE la única op- 
ción posible es grabar en cinta de casette y ésta solo admite ficheros se- 
cuenciales, este 1 es fijo. 

En modo se pondrá O (inicial de Output) si se abre el fichero para gra- 
bar datos en él e I (inicial de Input) si se abre para leer datos de él. 

Por ejemplo, si en un programa aparece la instrucción: 


20 OPEN 1,1,0 «NOMBRES» 


significa que se abre un fichero con el número 1 para grabar datos en él. 


— MS-DOS (IBM O COMPATIBLES) 
OPEN «modo»,% n. de fichero,«nombre» 


El significado de cada parámetro es el mismo que para el Commodore, 
teniendo en cuenta que cuando queramos abrir un fichero que EXISTA 
para añadirle nuevos datos lo debemos hacer poniéndole como modo «A». 
Si quisiésemos abrir el mismo fichero del ejemplo anterior deberíamos po- 
ner: 


20 OPEN «0»,+1,« NOMBRES» 


— MSX 
OPEN «nombre» FOR modo AS n. de fichero 
Para abrir el mismo fichero, se debería poner: 
20 OPEN «NOMBRES» FOR O AS 1 


— AMSTRAD 


El AMSTRAD permite utilizar en un programa un solo fichero secuen- 
cial, en la cinta o en el disco, al que asocia el número 9. Este fichero se 
podrá abrir con las instrucciones: 


OPENIN «nombre» 
cuando lo queramos abrir para obtener los datos que tenga grabados. 
OPENOUT «nombre» 


cuando lo queramos abrir para grabar datos en él. 
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2) Cerrar el fichero 


Cuando se hayan terminado de realizar todas las operaciones que se ha- 
gan en un programa con un fichero, se debe cerrar éste. Si no se hace esta 
operación, se pueden generar problemas de que no se queden correcta- 
mente grabados los datos. 

La operación de cerrar un fichero se hace mediante la instrucción CLO- 
SE que tiene el formato general: 


CLOSE H+n.fichero 


En el AMSTRAD es en el único en el que esta instrucción varía. Se debe 
poner: 


CLOSEIN 
cuando se quiera cerrar el fichero que hemos abierto con OPENIN y: 


CLOSEOUT 


cuando se quiera cerrar el fichero que hayamos abierto con OPENOUT. 

Notar que, mientras en todos los equipos podemos disponer en un mis- 
mo programa de todos los ficheros que queramos tener simultáneamente 
abiertos (bastará con que a cada uno le asignemos un número de fichero 
distinto) en AMSTRAD únicamente podemos tener un único fichero abier- 
to, al que asigna el número de fichero 9. De todas formas, si en un pro- 
grama AMSTRAD deseamos utilizar más de un fichero, bastará con que los 
usemos de uno en uno y antes de abrir otro, cerremos el anterior. 

Así, si en un programa queremos utilizar los tres ficheros denomina- 
dos: «TELEFONOS», «NOMBRES» y «AGENDA», en este orden, deberemos 
poner la secuencia de instrucciones: 


OPENIN «TELEFONOS» 


instrucciones correspondientes a lo que se quiera realizar con el fichero 
TELEFONOS 
CLOSEIN 
. OPENIN «NOMBRES» 


rn omoo....... 


CLOSEIN 
OPENOUT «AGENDA» 


rroomsssooo.o... 


rrrorssssoso.... 


CLOSEOUT 


Recordar que en todas las instrucciones PRINTA4 e INPUTA que se uti- 
licen se deberá poner como número de fichero el 9. Así, por ejemplo: 
PRINT+9, A$ 
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3) Grabar datos en el fichero 


Cuando abrimos un fichero para grabar datos en él (modo O), la ins- 
trucción que se emplea para ir grabando los datos es la PRINTF. El for- 
mato de esta instrucción PRINTfA es: 


PRINT ¿n. de fichero, lista de variables separadas por punto y coma 


Cuando un programa ejecuta una instrucción PRINTA, crea un nuevo 
registro en el fichero cuyo número se especifica, formado por todos los da- 
tos contenidos en las variables que se ponen a continuación de PRINT+. 

Veamos un primer programa de manejo de ficheros para guardar en 
un fichero los datos relativos a las señas de una serie de personas. 


DO REM GRARBACTON DIRECCIONES FICHERO SECUENCIA! 
CUTRE NORADACIÓN DIRECCIONES PILATERO- DELLA 


EMIR RRA RRA 


ZO TINPUT "TECLEA COS APECLCIDOSC SEPARADOS. POR COMAS)": A1$,A29 


Programa 1. 


El programa comentado anteriormente del control de stock de los ar- 
tículos de un almacén quedaría de la siguiente manera si le añadimos la 
opción de grabar en un fichero secuencial las cantidades de cada artículo: 


CU TETT EXREERMENERE REA ERE MMMM EEN 


JAR DBAAN.DNNAN ANO 
iGOSUB-1000,2000,3000, 4000 
A 


Programa 2. 


En todos los programas que se pongan en este capítulo, la instrucción 
OPEN llevará el formato de los ordenadores MS-DOS. Para ejecutarlos en 
otros equipos, bastará con que se cambie por la correspondiente al equi- 
po, de acuerdo con lo explicado anteriormente. 


4) Leer datos del fichero 


La instrucción más típica para leer los datos que tengamos grabados 
en un fichero es la INPUTA. Cuando nosotros abrimos un fichero que ya 
tengamos en el disco o la cinta, e indicamos que lo abrimos para leer da- 
tos de él, en la primera instrucción INPUTA que ejecute el programa re- 
ferida a ese fichero, leerá el primer registro, en la segunda el segundo re- 
gistro y así sucesivamente (recordar que cada registro está formado por to- 
dos los datos que se grabaron en una misma instrucción PRINT+4). Estos 
datos que se leen con la instrucción INPUTF y que están almacenados en 
un mismo registro deben encontrarse en el fichero SEPARADOS POR CO- 
MAS, por lo que cuando en una instrucción PRINTA se graben varios da- 
tos que queramos luego posteriormente leer mediante la instrucción IN- 
PUTA debemos GRABAR ENTRE MEDIAS DE ELLOS UNA COMA. Por 
ejemplo: 

PRINT4F1,C$;«,»;B;«,»;¡A$ 
El formato de la instrucción INPUT es el siguiente: 


INPUT4An. de fichero, lista de variables separadas por comas 
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Las variables que pongamos después del número de fichero separadas 


llas en las que se guarden los datos que se lean. Es 
í en cuenta que las variables que pongamos para leer 


los datos deben ser del mismo número y del mismo tipo que las que pusi- 
las variables que hemos puesto y donde hemos dicho que queremos que 


por no corresponderse los datos que hay y que hemos mandado leer con 
nos los guarde. 


mos cuando se grabaron los datos en el fichero, ya que si no nos dará error 
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el programa del control de stock de los 
en el que hemos puesto una nueva posibilidad: 


, 


én, 


Veamos como ejemplo de esto 


ículos del almac 
de leer el stock de cada artículo que teníamos guardado en el fichero. 
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104 


Programa 3. 


Dos datos que hayan sido grabados sin comas de separación son con- 
siderados por la instrucción INPUT como un solo dato formado por la 
concatenación de los dos. 


— Otras instrucciones para leer datos en un fichero 


*LINE INPUT + 
Tiene el formato: 


LINE INPUT +4n. de fichero, var. alfanumérica 


Esta instrucción guarda en la variable alfanumérica que pongamos to- 
dos los datos que haya grabados en el registro del fichero secuencial que 
toque leer, siempre que sean alfanuméricos, en el mismo orden en que es- 
tén, independientemente de que hayan sido grabados como uno o más da- 
tos. Así, si en un fichero hemos grabado los datos con la instrucción: 


PRINTF A$;N$ 


y queremos leerlos más tarde mediante instrucciones INPUTA, deberemos 
poner en éstas dos variables alfanuméricas (además de haberlos grabado 
separados por comas). Con la instrucción LINE INPUT+, sin embargo, se 
pondría una variable alfanumérica, y, si| por ejemplo, en el fichero que toca 
leer están grabados los datos de la figura: 


GARCIA PEREZ 


Fig. 3. 
en la variable se guardaría el valor: «GARCIAPEREZ». 
? *INPUT$ y GETF 


Estas dos instrucciones nos permiten una manera distinta de leer los 
datos que tenemos grabados en un fichero secuencial: carácter a carácter 
en vez de como datos completos. Cuando en un fichero se utilizan para 
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leer las instrucciones INPUT$ o GET%, el programa se olvida de los regis- 
tros y considera el fichero como una fila de caracteres uno detrás de otro. 
La instrucción INPUTf tiene el siguiente formato: 


var. alfanumérica=INPUT$(N,+n. de fichero) 


En la variable alfanumérica que pongamos al principio, se guardarán 
los N caracteres que haya en el fichero después del último que se leyó. 

Es importante destacar que cuando un programa graba un fichero, al 
final de cada registro, coloca un carácter RETURN para indicar el final del 
registro. Cuando leemos mediante instrucciones INPUTf$ este carácter se 
lee y almacena como uno más entre el último del registro y el primero del 
siguiente, ya que con esta instrucción no se tienen en consideración los re- 
gistros. De esta forma, en todos los programas que leamos datos con esta 
instrucción hay que tratar de controlar esto para que no nos almacene 
como dato este carácter que no lo es tal. El siguiente programa puede ser 
un ejemplo de cómo se podría evitar esto: 

* 


Programa 4. 


El código ASCII 13 es el que se corresponde con el carácter RETURN, 
aunque siempre se aconseja consultar la tabla de códigos ASCII del ma- 
nual de nuestro ordenador por si fuese otro número de código. 

La instrucción GETA realiza la misma función que INPUTf$. Si se em- 
pleara, la línea 200 debería escribirse: 


200 GET+2,A$ 


Si el fichero contiene datos numéricos se debe utilizar INPUTA porque 
estas instrucciones al leer un carácter cada vez, harían muy difícil la re- 
construcción de los números. 

Como resumen final de los ficheros secuenciales, se ofrece un progra- 
ma que lee los datos grabados de las direcciones de una serie de personas 
mediante el programa realizado anteriormente. 
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Programa 5. 


Si cambiáramos la instrucción INPUTA por LINE INPUT+X en aquella 
instrucción en la que se lee el nombre de la persona, en la variable que 
pusiéramos nos guardaría cosas como: «ANGEL,GARCIA,PEREZ»; por 
ejemplo. 


== LOS FICHEROS EN EL SPECTRUM 


El SPECTRUM utiliza ficheros secuenciales, tal y como los hemos es- 
tudiado, solamente con las unidades Microdrive (pequeñas casetes que tra- 
bajan en bloques como los discos). En las unidades de casete únicamente 
se pueden grabar datos guardados en vectores o matrices mediante la ins- 
trucción SAVE DATA. Por ejemplo: 


100 SAVE «NOMBRES» DATA Nf( ) 


guardaría en la cinta los datos contenidos en la lista N$ bajo el nombre de 
NOMBRES. 

Para leer estos datos y guardarlos en otra nueva lista de otro programa 
que suponemos que se llama A$ tendríamos que poner: 


200 LOAD «NOMBRES» DATA Af() 


LOS FICHEROS DE ACCESO DIRECTO 


Los ficheros de acceso directo son aquéllos de los que podemos leer 
los datos que hayamos grabado en el orden que queramos, independien- 
temente del orden en que hayan sido grabados. 

Estos ficheros sólo pueden ser utilizados en discos. Aquí vamos a ver 
las instrucciones para usar ficheros de acceso directo en los equipos IBM 
(sistema operativo MS-DOS), que utilizan discos de acceso directo. 
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La técnica para poder acceder a cualquier dato del fichero consiste en 
numerar los registros que se graben para luego acceder a ellos especifi- 
cando el número del que queremos leer. 

A diferencia de los ficheros secuenciales, en los-ficheros de acceso di- 
recto TODOS LOS REGISTROS DEBEN TENER LA MISMA ESTRUCTU- 
RA. Es decir, si nosotros definimos que los registros van a estar formados 
por 3 datos alfanuméricos, en todos los registros que grabemos en el fi- 
chero, debemos introducir 3 datos alfanuméricos. 

Este fichero de acceso directo tendría una estructura que podría ser de 
la forma: 


REG 1 REG 2 REG 3 


Los datos que guardemos no tendrán siempre la longitud máxima. 
El resto se rellena con blancos 


Fig. 4. 


En los ficheros de acceso directo no se pueden grabar datos numéri- 
cos. Si quisiésemos hacerlo, tendríamos que grabarlos como caracteres (los 
datos numéricos se convierten en caracteres mediante la función STR$) y 
luego, después de leerlos, volverlos a pasar a números mediante la fun- 
ción VAL. 

Vamos a ver a continuación los pasos que habría que dar para utilizar 
un fichero de acceso directo (en MS-DOS): 


1) ABRIR el fichero mediante la instrucción OPEN vista para fiche- 
ros secuenciales poniendo como modo la letra «R». 

2) DECLARAR la estructura que van a tener todos los registros del fi- 
chero. Esto se hace mediante la instrucción FIELD, que tiene el siguiente 
formato: 


FIELD 4n. de fichero, longitud1 AS variable1, longitud2 AS variable2,.... 

Se debe poner en esta instrucción una expresión: longitud AS variable 
por cada dato alfanumérico que queramos de que conste el registro. 

En cada una de estas expresiones deberemos poner donde pone longi- 
tud, la longitud total del dato correspondiente y donde pone variable, el 
NOMBRE DE UNA VARIABLE ALFANUMERICA QUE NO SE HAYA UTI- 
LIZADO NI SE VAYA A UTILIZAR EN EL PROGRAMA PARA OTRA COSA 
y que ya veremos más adelante para qué sirve. Deberemos poner, por tan- 
to, una variable por cada dato que queramos que tenga el registro del fi- 
chero. 
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Así, si un programa ejecuta la instrucción: 
FIELD +3, 25 AS Nf$, 30 AS M$ 
después de haber ejecutado una instrucción de abrir un fichero de acceso 
directo con el número 3, significará que el registro va a constar de dos da- 
tos alfanuméricos y que al primero se le asocia la variable N$ y va a tener 


una longitud total de 25 caracteres y al segundo la variable M$ teniendo 
una longitud total de 30 caracteres. 


REG 1 REG 2 


25 30 25 30 
Fig. 5. 


Cada vez que se abre un fichero y antes de empezar a grabar o leer da- 
tos por primera vez se debe poner esta instrucción FIELD. Si se abriese un 
fichero ya existente (para leer los datos grabados o grabar nuevos) se de- 
berá poner en la inst. «cción FIELD el mismo formato de registro que tu- 
viera las veces anteriores que fue utilizado. 

3) Para GRABAR datos en el fichero: 

Cuando queremos grabar los datos en un fichero de acceso directo, de- 
beremos poner en primer lugar por cada dato del registro que queramos 
grabar en el fichero, la instruccion LSET. Esta instrucción tiene el mismo 
formato que la LET; debiéndose poner en el lugar de la variable, la varia- 
ble asociada al dato que se puso en la instrucción FIELD. 

Es importante notar que siempre hay que grabar y leer registros ente- 
ros. 

Después de haber asignado a las variables asociadas los datos que que- 
remos grabar en el registro del fichero que lo vamos a hacer, se debe po- 
ner la instrucción PUT. Esta instrucción tiene el formato: 

PUT+An. de fichero,n. de registro. 

Cuando un programa ejecute esta instrucción, grabará en el registro 
cuyo número se especifique los datos contenidos en las variables asocia- 
das a cada dato y cuyo valor les ha sido asignado mediante la instrucción 
LSET. 

Así, si después de haber puesto la instrucción FIELD del ejemplo ante- 
rior, ponemos las instrucciones: 


Programa 6. 
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en el registro número 15 del fichero se nos guardarían los datos especifi- 
cados. 


REG 1 REG 2 REG 3 REG 15 


Fig. 6. 


4) Para LEER datos grabados en un fichero de acceso directo: 

Cuando queremos leer los datos que hay grabados en un determinado 
registro de un fichero de acceso directo, se pone la instrucción GETA cuyo 
formato es el siguiente: 


GETn. de fichero, n. de registro 


Al ejecutarse esta instrucción se pasan a las variables asociadas a cada 
dato (las que especificamos en FIELD) los valores de los datos del registro 
del fichero cuyo número hemos indicado en la instrucción GETF. Luego, 
estos valores podemos ya obtenerlos de estas variables pudiéndolas mane- 
jar como si fueran variables normales. 

Siguiendo con el ejemplo puesto anteriormente, si en ese mismo pro- 
grama en el que habíamos abierto el fichero de acceso directo y habíamos 
declarado la estructura de su registro mediante la instrucción FIELD es- 
pecificada, se ejecuta la instrucción: 


GET+3,20 


se pasarán a las variables N$ y M$ el primer y segundo dato guardados en 
el registro 20 del fichero respectivamente. 

4) CERRAR el fichero 

Los ficheros de acceso directo se cierran con la instrucción CLOSE de 
la misma forma que se cerraban los secuenciales: 


CLOSEfn. de fichero 


Como ejemplo final del empleo de ficheros de acceso directo, se ad- 
junta a continuación el programa para reservar plazas en un tren de la ma- 
nera más lógica como debe hacerse este programa: guardando el dato 
correspondiente a cada plaza (si está ocupada o no) en un fichero, de ma- 
nera que cuando termine el programa y apaguemos el ordenador no se des- 
truyan estos datos, y la reserva pueda durar más de un día, ya que al día 
siguiente, al encender el ordenador, continuamos teniendo en el fichero 
los datos correspondientes. 
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A A 
GOTO 190 ELSE LSET A6="O" PUT 1T:PRINT REE 
JC IFOTH1, 17 PRINT “RESERVADA PLAZA” 3] 


170 1€5 a 
10 1 B$="0" THEN GOTO 190 ELSE LSET B$="0" :PUTM2,1:PRINT 


'="0" THEN GOTO 190 ELSE LSET C6="0" :PLUTH: 
DEl LS6="0" +1 PUTA, 1: PRINT "RESERVADA 


Programa 7. 


EL NUMERO DE REGISTROS DE UN FICHERO 


El número de registros de un fichero, ya sea secuencial o de acceso di- 
recto, no está limitado y puede tener tantos como nosotros le pongamos. 

Existe una función cuyo nombre es EOF y que tiene como argumento 
el número de un fichero secuencial. Esta función dará como resultado un 
1 si en el fichero no quedan más registros por leer y un O si aún quedan 
registros. Es muy útil utilizarla cuando estemos leyendo los datos de un fi- 
chero secuencial, no sabemos cuántos registros hay y queremos leerlos to- 
dos hasta que se acaben. Seguidamente vemos el trozo de programa que 
nos haría esto. 


0 INPUTH1 NS - 
Y INFUTA1,NS,AIS, ALI 


Programa 8. 


EJERCICIOS: 


1. Hacer un programa para almacenar en un fichero los gastos que se 
han producido en una determinada empresa, pudiendo ser éstos relativos 
a diez conceptos distintos. Otro programa pedirá, cada vez que se ejecute, 
uno de los diez conceptos y la cantidad gastada de éste, acumulándola a la 
que ya hubiera. Hacer también otro programa para que a final de mes ob- 
tenga un listado del total de los gastos producidos en cada uno de los con- 
ceptos. 

2. Hacer un programa que almacene en un fichero secuencial los nom- 
bres de una serie de personas junto con sus gastos. Realizar luego otro pro- 
grama que, a partir del fichero creado por el programa anterior, liste por 
pantalla los nombres de cada una de las personas y pregunte si hay que aña- 
dirle algún gasto más. Si la respuesta es positiva, este programa deberá su- 
mar este gasto al total que tenía y listar por impresora los gastos totales de 
cada persona (haya habido que aumentarle algo o no). 

3. Hacer un programa parecido al anterior, pero suponiendo que las 
personas son alumnos de una clase y que lo que hay que guardar en el fi- 
chero es la nota de la evaluación para luego listarla mediante otro progra- 
ma cuando se necesite. 

4. Imaginar un programa que lleve la gestión de los clientes de un hotel. 
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Una vez conocidas las instrucciones 
fundamentales del lenguaje Basic, se 
plantea la cuestión de la realización de 
programas que resuelvan problemas o 
aplicaciones que se nos presentan 
diariamente en el trabajo, en casa o en los 
estudios. 


Este libro trata de mostrar cómo se 
podrían realizar algunas de estas 
aplicaciones, estudiando diversas 
estructuras que proporciona el lenguaje 
Basic (como las subrutinas) y viendo las 
ideas fundamentales para realizar gráficos 


en pantalla mediante un programa y para 
almacenar datos en discos o cintas 
mediante los ficheros. 


